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: Editorial ' 

RESPUESTA POSITIVA 


Eft rues pasEido anunci Obamas a nucstrus lectores hi 
reduction de predos de I os video juegos, Ah ora, en 
el presence nuntern. ya tenemos ulgunos clemcntos 
para tiaccr balance, bien que provisional y de urge ti¬ 
cca, sobre las consccuendas dire etas que ial metiida 
ha tenido. y se puede pensar que tcndrA, sobre esta 
franja del mercado tie software. 

No ded trios nada rnievo si const a tamos que, del 
hi do de hi produccidif y la distribution, el apoyo que 
reeibiu la reduceibii de precios no estaba exento de 
cierto desasosiego re spec to del rumbo definirivo qne 
lomarian los acontccimicritos, la! rceelo sc justifi- 
caba por el tcmOr ei que ei desceilso de precios, y del 
marge r comer dal. no fuera con trar rest ado por el 
e red mien to del mercado, 

Tambien cabin esperar una cierta reserva psico lo¬ 


gics de parte de los nsuarios, ha bit undos a valorar la 
calidud de los programas en fund on de su predo, 

A tme&lro juido y leniendo siempre en cuent ei las 
limilacione-s de perspectiva que mcnciortabainos an¬ 
tes. los prime ms efectos han si do de tono ciaramente 
posit i vo: tan to Ieis eitipresas coma los compradores 
bail asimilado la nueva tarifa. 

Sin diuht era necesEirio que los videojilegOS st olYc- 
cicran en cl mercado a un predo que result a ra juste 
para et comprador, a la vez que asimilahle asu pesder 
adquisitlvo. 

Esta era una neccsidad impostergable si se queria 
crear un mercado estructurado e aniegrado cn el que 
nadie tuviera conuiencia de scr inadecuadamcntc tra- 
tado. lil pasado mes se dio un paso muy important^ 
en esc sentido. 


l> 



LOS MEJORES DE INPUT 


Memos pensatJn que es imeresaoie tltsprjner de un ranking cue 
ponga en darn, mes a mes, cuales son Ins programas preferidos 
de nuestros leulorcs. Para ello., csobligado preguntaros dir&ciamen- 
te y tenet asi el mejnr leminmelrn para mnncnr vuestras praters m 
cias. Pedals volar por cualgumr programs auntfuc no liuya sido co- 
meniado todavia en INPUT 


El resulted!) de las votadones sera publicado en sada numero \ 
de INPUT j 

Entre los votantes soriearemos 10 dntas de los lituios que pidSis ! 
en vnestros cupones. 

Notat Mo es pneciso que owteis la revista, una mpia hecha a j 
maquina o una simple folocopla sirvert. J 


Enviad vuestros votas a: LOS MEJORES DE input Aribau, 135, Planla 1, 08021 Barcelona 





ELIGE TUS PROGRAMAS 


[ Primer tftul* efegfdo L _j_ i j i j _ I_i j t i i i l l J 

| itrcBt turn* efegidn l i : ! i . l _ i _ i _l_ i i i j 

^ Qu6 onJenaddr Irenes, t_j_i_t_t_i_i_i_i_j_i_i_i_ i _i 

[ !. # A|M}lFi{fO I I i ! I I . J I._I_L I L. L _J I l 

Fechada nwimfcnio i j _i_ l j j _i_i j j l l _i —i—i—L 

psneccibn t j_|_I_i_L_I_I_I_l_I_l—l_I_I_J_I—I—J 


PmvElCia |_ I _ I _ J _|_!__!_ J 1 I ,1 _LJ_L_I_ 1 1 1 _I 



Segirnda ErtulO elflifido t l i i i _l_I_l_I_I I I I l L 

i 

Programs que le gularti ccwiF^guii I lj_ i _4 4 1 t 1 j I j 

Nonthw I_l_J_L_l_l_J_ l _L_l_ 1 —L-J—[— 1 — 1 —l— 1 —l j 

2,' Apellida L_i_1_1_[_j_|_!_|_|_|_J_L 1 I I—I—I j 

+ 

Tel&fono- Lj—l^4— 1—4 —!—— 1—1 i_ j—l_^_i— 1—L 

* 

IgCdNild L_J_1_1_1_1_1_j_1_1_1_1_j_j— 1 — 1 — 1 — 1 —I 

■ 

INPUT SINCLAIR N.° 13 j 


4 INPUT 










































RUTINA 
DE SCROLL 


■ 

RUTINA DE «SCROLL* 

CON MAPEADO 

■ 

/,QU£ ES UN MAPEADO? 

■ 

PRESENT ACIGN 

■ 

EL FORMATO LONCHA 


■ 

CREACION DE LOS GRAFICOS 

■ 

DIRECCIONAMIENTO 

OE LOS GFtAFlCQS 

■ 

CODIF1CACION DE PANTALLA 

■ 

DEMOSTRACIQN 


Muchas veces huhriiii i|uei iclo saber 
cual es la manera de reallzar pre&enta- 
ciones de lus juegos pareeidas a las co- 
i Here rales, u puder ejeeutar rulinas de 
scroll con mapeado. Kara eso (e ae ra de 
gran ay li da la rut in a que cxpikainos a 
continuation >• que, adcmas, podras in- 
truducir en lus pro pins jiiegos para dar¬ 
ks vcloridad y dinaniismu. 

Si te guias per simples referenda^ 
este lema te pudrE'i purecer deniasiado 
complejo. 

Nada mas lejos dc la realidad, pues 
con los arlfculos quo, a partir dc este 
ntimero, vamos a publicar conseguirits 
buenas rutin as que se cjccutaniti con 
rapidez y. adenitis, al ser reubicabEes 
las podras ineorporar a todos tils pro¬ 
gram ns. 

Para empczcir hemos escogtdo una 
rutina dc scroll con mapeado. Expli¬ 
cit ndol a habhremus dc notion cs ba- 
sicas de cbdigo maquina y, desde un 
pun 10 dc visiEi mas practice, tocarc- 
mos los pasos a Jar para imroducirla 
cn vucsiros programs^ 

Pa ra todos los program us dc csic ar- 
ticulo liemos utili/ado el ensamblador 
GENS de Hisoft. 

Kara quiencs no dispotigais dc <M. os 
recordamos que INPUT public*} cn cl 
numcro anterior su propio ensambla- 
dor para Spectrum. Ahora tends una 
buena oportunidad de probar su 11 ti¬ 
ll dad v eficacia. 


UTILIDAD DE LA RUTINA 

La rutina que vamos a comentar 
rcaliza un scroll t o desplazamiento dc 
la pantalla, pixel a pixel haria aba jo, 
HI BASIC del SPECTRUM solo per- 
mite hacer movamientos dc La pantalla 
u objetos, cei ratter a car&eter, o, lo 
quo cs lo mismo. dc 8 cn 8 pixels. El 
fiehcro dc Imagen, Display Fite, dene 
2 modes dc pantalla. baja resolution 
y alta rcsolucibn. La baja resolution 
const a de 0 a 31 curac teres dc audio 


por 0 a 23 dc alto. PcrO cl BASIC solo 
accede hast a Ja lniea 21, pucsiu que las 
linens 22 y 23 las utiliza para darnos 
informacidn. Por contra, si usamos la 
alta resolucibn disponemos dc (la 233 
pixels horizontal I es por de 0 a 175 ver- 
tiicalcs. 

Sin embargo, nuesiro SPECTRUM 
sdlo tiene una rutina de scroll , cn ba ja 
resolution y soiamerne hacia arriba. 
Esta sc hal la en la direction 3582 dc la 
ROM, 

La rutina dc scroll que incorpora- 
inos cn cl mapeado hace un despla- 
zamiento dc la pantalla hacia aba jo cn 
ei ito resolution, o pixel a pixel. 


^QUE SE ENTIEIMDE POR 
UN «MAPEAD0»j7 


Una pantalla dcE Spectrum utiliza 
6912 bytes. Si la us&rarnos lei l y como 
nos vicnc solo podrlamos tencr cn la 
limiiada memoria del ordenador 5 
pant alias sin poslbilidad dc toner un 
pmgramu. Para resolver cstc COO- 
flicto. los programadores crearon los 
mapeadm. HI mapeado cs una rutina 
dentro de un program a que traba- 


jando con bloques dc grafieos, orga- 
niza de tal mode lit pantalla que nos 
permire hacer con elememos simples 
unEt cantidad enorme de pantallas, 
a h Or rand u un volumcn ingen tc dc mc- 
moria, Una pantalla codilicada me¬ 
dia [lie nucstro mapeado puedc oeupar 
hasta 256 bytes, mas incluso que las 
que con tiene n pantEiIlEis dc jucgos co¬ 
me relates. 

PROFANATION, juego que todos 
conoceis., utiliza iilrcdcdor de 150 hy- 


tes, 

Imaginaros lo que 

se puede hacer 

con 

256 bytes... 


RRESENTAC10N 

10 

ORG 

50000 ;RUT 


UNAS REUBICABLES 

20 

¥ 


30 

PRESENTACION 


40 



50 

XOR 

A 

60 

OUT 

(2541.A 

70 

LD 

A, 70 

m 

LD 

{23624),A 

90 

LD 

Hl r 22528 

100 

' LO 

DE.22629 
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- cbdigo ■m.cr.inc 



110 

LD 

BCJ6B 

120 

LD 

(HL) 3 70 

130 

LDIR 


140 

LD 

HL, 2252S 

15p 

LD 

DE,22529 

160 

LD 

BC.63 

170 

LD 

CHL},00 

180 

LDIR 


190 ; 




La rutina es reubieable* pot conve¬ 
rt lend a la hemos sltuado en la dircc- 
ci6n 50000, Fn [as Uneas 50 y 60 co- 
loeamos el BORDER a 0, cm 3as 70 y 
SO situamos las dos Imeas inferiorcs 
ton PAPER 0 y INK amarillo. De la 
90 a la 130 definimos cl PAPER negro 
y la INK am aril la, tic tod a la pantalla. 
De la 140 a 3a ISO eoloeamos las dos 
line as superiores (0 y 1) en PAPER 
negro y INK negro, Estc camuflaje 
nos permite imprimir los grdficos en 
esa zona, sin quo aparezean hrusca- 
mente y dan do el efccto que cl grafieo 
apareee desde cl principle de la pan¬ 
talla. 

Si querns ver cl efccto quo realiza 
el camuflaje, suprimid Las lincas desde 
la 140 a la ISO. 


RUTINA BUCLEADORA DEL 
MAPEADO 

La subrutina siguiente se encarga dc 
cogcr la eodifieaeidn tal y ctimo que- 
remns que aparezea la pantalla. La co- 
dificaddn la analizarcmos mas ade- 
lante, 

20i0 MAPSCR 
210 ; 


220 


LD 

IX, D_PANT 

230 


LD 

A, (26999) 

240 


LD 

D, 00 

250 

BUC 

DEC 

A 

250 


JR 

Z.PINTAR 

270 


LD 

E,(IX+00) 

310 


ADD 

1X.DC 

320 


JR 

BUC 

330 

FINTAR 

LD 

A,(IX+00) 

335 


CP 

255 

337 


RET 

Z 

340 


DEC 

A 

350 

PINTA 

PUSH 

AF 

360 


LD 

UIX+03) 


370 

LD 

H.00 

380 

ADD 

HL.HL 

390 

LD 

DE,D CRAF 

400 

ADD 

HL,DE 

410 . 

LD 

E,(HL) 

420 

INC 

HL 

430 

LD 

D,(HL) 

440 

LD 

(23306), DE 

450 

EX 

DE,HL 

460 

DEC 

HL 

470 

DEC 

HL 

480 

LD 

E.(HL) 

490 

INC 

HL 

500 

LD 

D r (HL) 

510 

LD 

{23303},DE 

520 

LO 

EpCIX+1) 

530 

LD 

D r (IX+2) 

540 

LD 

(23300), DE 

550 

LD 

A r l 

560 

LD 

(23302), A 

570 

PUSH 

IX 

580 

PUSH 

HL 

590 

PUSH 

DE 

600 

CALL 

IMP_D 

610 

POP 

DE 

620 

POP 

HL 

630 

POP 

IX 

640 

INC 

IX 

650 

INC 

IX 

660 

INC 

IX 

670 

POP 

AF 

680 

DEC 

A 

690 

DEC 

A 

700 

DEC 

A 

710 

JR 

NZ, PINTA 

720 ; 




En la line a 220 cargamos el regisiro 
IX con la direction dc la codification 
de La pant all a. Fn la linea 230 sc di¬ 
mensions A con el niimero de pantalla 
a imprimir o visual izar y sc decre¬ 
me nla A (minnero de pantalla). Si la 
paniaita a imprimir es k 1 satta in- 
media tameme a dibujnrLi. For contra 
si no fuese I sc va al primer valor de 
la dirceeion de codification de panta¬ 
lla, y se suma a la direction initial de 
pan tal las, con lo que se consigue la di¬ 
rection de la segunda pantalla, Este 
bucle se realiza hasta encontrar la di¬ 
reccidn de la pantalla dcseada. 

A continuacidn coge la longiuui que 
tiene la pantalla y la guards, y realiza 


la misma operaddn con cl valor del 
grafieo que quicre visual izar. PuestO 
tfiie cada graflco tiene un niimero asig- 
nado, esc numero contiene la direc¬ 
tion de menioda donde se Hal la ubi- 
cado esc grafted, E! siguiente paso cs 
tomar los valorcs para imprimir cn 
una pcsicidn determinada de la pan- 
uilla cl gnifico cn question. Todo esto 
se realiza entre la Mnea 350 y la 590. 
Una vez tiene los valoi'es del grif’ico y 
su position cn Iei. pantalla. salta a la ru- 
Ldua impresora del gnifico que estEi en¬ 
tre las Eneas 1500 v 2120, que mis 
add ante comentaremos, Fsia tiace 
que se imprima el grafico. A conti- 
nuadon realiza la misma ope radon 
hasta que se complete Iei pantalla. 
Cuando tormina salta a BL’CLE. 

Fn nuestro easo. la nit in a impresora 
ill cslar asociada con cl scroll solo 
opera cn las dos tineas superiores. 


BUCLE 


730 BUCLE 



740 ; 



750 

LD 

B, 16 

760 BUCA 

PUSH 

BC 

770 

CALL 

SCROLL 

780 

POP 

BC 

790 

DEC 

BC 

800 

DJNZ 

BUCA 

810 

LD 

A, (26999) 

820 

INC 

A 

830 

LD 

{26999},A 

840 

CALL 

MAPSCR 

S50 

RET 


860 ; 




Esta pequcmt Subrutina es la cnear- 
gada de montar todo el efccto, En La 
rutina se aprqcia count esta imprime 
los grafkosen las dos lincas superiores 
y acto seguido realiza un BUCLE, ct 
cnal dcs plaza hada aba jo 16 pixels, los 
inipresos con amerioridad en las tins 
primeras lineas, Una vez realizado cl 
scroll, vuclve a imprimir los gra fin-os 
siguientes y precede a desplazarlos 16 
pixels had a aba jo. F.l proecso lo eje- 
eula indefinidamente y no retom a a] 
BASIC hasta que cncuentra un eum- 
probante, en nuestro caso 255 indi- 
cado cn el ultimo gnifico. 
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mjTINA DE SCROLL EN ALTA 
RESOLUTION 

- 1080 
1090 
1100 




1110 

920 

;RUTlNA DE SCROLL EN 

1120 

ALTA RESOIUCION ABAJO 

1130 

930 

r 


1140 

940 SCROLLLD 

HL,22527 

1150 

950 

ID 

DE r 22271 

1160 

960 

10 

C.192 

1170 

970 

_5. LD 

B r 32 

1180 

980 

.2. LD 

Ap(DE) 

1190 

99|5 

LD 

(HL),A 

1200 

1000 

ID 

A r C 

1210 

1010 

CP 

2 

1220 _3_ 

1020 

JR 


1230 

1030 

XOR 

A 

1240 

1040 

LD 

{DE) f A 

1250 

1050 

_1_ DEC 

DE 

1260 

1060 

DEC 

HL 

1270 

1070 

DJNZ 

_2_ 

1280 


PUSH 

DE 

1290 

SJTER LD 

A,H 

LD 

DE i 224 

1300 

SBC 

AJ 

sec 

HL h DE 

1310 

LD 

H,A 

EX 

(SP), HL 

1320 

JR 

_5_ 

SBC 

HL.DE 

1330 

_4_ PUSH 

HL 

EX 

DE.HL 

1340 

LD 

HL r 2016 

POP 

HL 

1350 

ADD 

HL h DE 

DEC 

C 

1360 

EX 

DE, HL 

LD 

A.C 

1370 

POP 

HL 

AND 

7 

1380 

LD 

A f C 

JR 

Z f _3_ 

1390 

AND 

63 

CP 

1 

1400 

CP 

1 

JR 

Z,_4_ 

1410 

JR 

N2,_5_ 

JR 

_S_ 

1420 

S-TEROLD 

A a D 

PUSH 

DE 

1430 

SBC 

AJ 

LD 

DE r 2016 

1440 

LD 

D,A 

ADD 

HL r DE 

1450 

LD 

A,G 

POP 

DE 

1460 

CP 

1 

LD 

A,C 

1470 

JR 

NZ,_5_ 

AND 

63 

1480 

RET 


JR 

NZ,_5_ 

1490 

] 




INPUT 7 


















Esta mtina produce mi dcsplaza- 
m cento de la pantalla hacia aba jo una 
tinea cad a vez que es llamada. Hay 
que tener en cuenta. sin embargo, que 
s6lo dcsplEiza 111 TINTA. no asi los 
ATRIBUTOS. El lime ion am lento lo 
reali/a dc la siguiente manors: des- 
plaza haeia aba jo y uhei ei iioei las 191 
Imeas de pixels de la pantalla me- 
dianlc el BUCLE „5._ y _2_ —no con- 
fundirlo con numeros pucs $e trata dc 
etiquetas—, que est^L en su interior. 
Desplaza cada linea byte a byte bo- 
rrando la tinea eontinuEi superior, cl 
decremeiUo de los punter os para Gam¬ 
bia r de linea cs normal mente 224 o 
sea, la a fichu ra de la pamalla del Spec¬ 
trum cu alia resolution, Este niitnero 
surge de rest at 256 - 32 - 224. 

Existen algunas excepciunes, 
Cuando la lines cs multiplo dc —1 
cambia cl caractcr de origen + 2016, 
Esto lo reali/a en la etiqueta (LA¬ 
BEL) _4_. 

Cuando la linea cs mfiltiplo dc ft, 
cam hi a el car 6c ter de destine* —1792. 
Esto lo realiza cn la etiqueta S_tcro. 

Cuando la linea es multiplo dc 64 
Gambia el tcrcio de destine -1792, 
Esto to reali/a en la etiqueta S_ter„ 


RUTINA IMPRESORA DE LOS 

graficos 

Una vez que tenemos almEicc ratios 
los gratkos en Iei memoria en forma lo 
LONCHA. Atenci6n + no losdcbcmos 


confuudir con introduce id n de los grti- 
ficos UDG, Este formato consiste cn 
introducir losgr^Rcos cn una lines. Hu 
UDG cada grafico csli almaecnado cn 
memoria mediants una linea de & by¬ 
tes dc audio X ft bytes tie Eilto. Para 
adaniroslo mas, Imaginaos que tene- 
inos un gr&fieo dc 3x2 caracteres. La 
longitud er cada lines en formato 
LONCHA serta de 24 bytes de ancho 
x 16 bytes dc alto. 

870 ; 

880 D PANT EQU 27000 


En la figurti l vemm an grdfico tie 3 
de audio par 2 de alio. Los dittos se 
almatenan en memoria de la 
siguienie man era: se cage la linea 0, 
cohurma I, y se «pokea» ese valor. 
Despues el valor de la coin own 2, y 
por ultimo el valor de la colurnrta 3, 
A conti mwci&n .tg repile la misma 
operadon cambiando tie linea has la 
que £stas se (ermintm. 


890 D-GRAF EQU 32000 
900 ; 

910 ; 

1500 jRUTlNA IMPRESORA DE 
LOS GRAFICOS 


1510 

!■ 


1520 

! M P_D Dj 


1530 

LD 

lX r 23300 

1540 

LD 

BC,(23300) 

1550 

LD 

A,e 

1560 

RRCA 


1570 

RRCA 


1580 

RRCA 


1590 

AMD 

224 

1600 

LD 

LA 

1610 

LD 

A,B 

1620 

AND 

24 

1630 

OR 

64 


FIGURA 2 


0 

1 

2 

3 
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La figura 2 representa un formato 
normal de 1 x /. 







































































































































1640 


LD 

H n A 

1650 


LD 

B,0 

1660 


ADD 

HL r BC 

1670 


LD 

E,L 

1680 


LD 

A,H 

1690 


RRCA 


1700 


RRCA 


1710 


RRCA 


1720 


AND 

3 

1730 


OR 

88 

1740 


LD 

D.A 

1750 


PUSH 

DE 

1760 


LD 

DE r f23306) 

1765 


LD 

A, (233041 

1770 

_5 

EX 

AF.AF 

1780 


LD 

C,8 

1790 

J2 

PUSH 

HL 

1800 


LD 

B h (f Xh-3> 

1810 


BIT 

0,{lX+2) 

1820 


JR 

NZ,_1 

1830 


LD 

DE, 15616 

1840 

A 

LD 

A p (DE) 

1850 


LD 

fHU.A 

1860 


INC 

DE 

1870 


INC 

HL 

1880 


DJNZ 

^1 

1890 


POP 

HL 

1900 


INC 

H 

1910 


DEC 

C 

1920 


JR 

NZ a _2 

1930 


LD 

A,L 

1940 


AND 

224 

1950 


CP 

224 

1960 


Jft 

Z f -3 

1970 


LD 

BC,2016 

1980 


AND 

A 

1990 


SBC 

HL a BC 

2000 


JR 

„4 

2010 

A 

LD 

A r H 

2020 


CP 

87 

2030 


JR 

NC P _4 

2040 


LD 

A,L 

2050 


AND 

31 

2060 


LD 

L,A 

2070 

_4 

EX 

AF.AF 

2080 


DEC 

A 

2090 


JR 

NZ P _5 

2100 


POP 

HL 

2110 


El 


2120 


RET 



Dcheremtw acostucnbrarnos pues a 
saber uliliznr Ins grafieos cn formaio 


LON CM A y olvidarnos del forma to 
UDG t si queremos realizar un bucri 
programs ya que esios nos proporcio- 
nan mayor rapidez a la liora de nia- 
nejar los SPRITES por la pantalla. 
Todt>s sabemtis que un SPRI TE es un 
eon junto de pixels que se mueven por 
la pantalla y que con una cieria I6gica 
puede darnOS la scnsLtcidrJ de un itlO- 
vimienlo. 

Esia rutiita es imprescindible para la 
ml in a del mapeado puesto que sin ell a 
no funcionaria nada. La rulina se en- 
carga de leer unos valores escogidos y 
los eoloca en mta posieibn de memoria 
para posteriormente utilizarlos. La ru¬ 
tin a budeadorn de mapeado se cn- 
carga de cogcr los vulores tie la eodi- 
fieacidn de la panlalla para que a la 
bora de llamar a la rutina im presort 
de los graficos pueda saber ddnde, de 
cyfinto y corno debe imprimir el gr£- 
fico. Mas addante cxplicaremos c6mo 
usar los parametros para su correcto 
func ion anile nto. 

Conduit la explicacidn de las Hi¬ 
ldas pasamos a expliear detallada- 
mentc de qu£ man era se cod if lean Eas 
pant alias. 


CREACIOIM PE LOS GRAFICOS 

Lo primero que hay que Itaecr es 
crear nuestros propios graft cos, bicn 
sea a mano o con uno de los muchos 
di sen ado res de graficos. o program as 
tic dibujo. Una vez tenemos los grii- 
ficos se les asigna un niimero a cada 
grdfico empezan.de desde 0 hasla con- 
duir eon el ultimo grufico real dado 
— 1. As! si hem os creado 20 graficos, 
empezaremos por numerur a I primero 
con 0, a l segundo con 1 y asi succsi- 
vamcnie hast a cl ultimo. Una vez rca- 
li/.ada cstu operacibn eomenzaremos a 
eodificarlo en formato LONCIIA. 
Esto lo lograremos eon uno tic los mu¬ 
ch os program as cOmcrciales hcchos 
para rat fin. Una vezcodifieados lodes 
los gra ficus cn formato LONCH A. de- 
beremos eotocar dclante de cada grii- 
fico el ancho y alto de dicho grafico. 
Asl, si licnios hccho un gralleo de 5 X 
2 y £ste eolocado en 26002, pokeare- 
mos: 5 en la posieidn 26000 y 2 cn la 
posiribn 2600 |, y asi co n todcss (os de- 
mas graft cos. Una vcz salvado este 


bloque dc graficos, le de nominate mos 
GRAFS: 


1 

2 

3 

4 

5 

6 


7 

8 
9 

10 

11 

12 


13 

14 


20 


21 


22 


23 


24 


25 

26 


REM 


****** GRAFS ****** 


LET n-32768: RESTORE 
FOR i=20 TO 65: LET 
cont = 0 
READ ;i$ 

FOR j = l TO LEN 3$- l STEP 
2 

LET d=16*{C0DE 
a$(j)-4S-7*(a?(j )>"9 ,, ))+ 
CODE 

a$(j + l)-48-7*(a$fj+l)> 

POKE n P d: LET cQnt=cont+d: 
LET n=n+l: NEXT j 
READ a 

IF aocont THEN GO TO 
14 

PRINT AT 0,0; ,I L!NEA: ";i 
NEXT i 

PRINT AT 0 r 0; M OK. TODO 
CORRECTO”:AT l,0;”Pulsa 
una tec I a para grabar 
SAVE "GRAFS"C0DE 32768, 
923 


STOP 

PRINT "ERROR DE DATA EN 
LA LiNEA JJ ;i: PRINT JJ REVISA 
LAS DATAS”: STOP 
DATA M 05028BF6S0005945 
F6BE1F5922F85D2EBF117 
F5B”.2081 

DATA ”36BF08BFAF3 
D0O045FD33200022FEC0 
DF70117F3M852 
DATA "F3F0008BFC0 
FFF0045FFFFFF0022 
FFFFFF001100”,2794 
DATA ”00000008 
FFFFFF0004000000000 
20000000001 FF' r p 
1035 

DATA r 'FFFF000702555AF2 
FFFFFAE30000 
F2FD55F5E3FF'\ 

3230 

DATA "FA72FFFFFA 

FFFFFA72FD55F5FF000002 

FfFF FAFF”, 3853 

DATA ”000006FD55F5FFFFF 

A7DFFFFFAE3000203 


INPUT 9 















FD55F5",3049 

27 DATA h E3FFFFFFFF 
FFFFFFFFFFFFFFFFFFFF 
FFFFFFFFFF",5072 

28 DATA ”FFFF 

00000000000000 

FFFFFFFFFFFFFF00000000" 

2295 

29 DATA "000000000000000 
00000FFFFFFFFFFFFFF 
000502", 1792 

30 DATA "4A00016 

FD14AF87 D6FA24DC4BA1F 
444D6CDAFE88", 2466 

31 DATA "40BCF5FD10 
404CCBFA206FB037F4400 
FCFCFE880",2830 

32 DATA TFF03FD100 
FFFFFFA200 FFFFFF44 
000000008800 ,J , 2663 

33 DATA "FFFFFF1000000000 
20000000004000FFFFFF 
8000", 1770 

34 DATA "0008028BFF2 
FFFFFFFFFFF8BFF2 
FFFFFFFFFFF8B" r 3581 

35 DATA rr FF30000000000 
78BFF1FFFFFFFFFF 
BSB80800000", 2401 

36 DATA "00000 
D8B7760000000000 
68A003FFFFFFFFFE28A", 
1958 

37 DATA "003C0FFFFFFFF 
28B7773F3FFFFF 
5F28B80 EC0DF8'\3459 

38 DATA "0000328BF7D332F 
EAAB572SBF7 AF3D780000 
328B'\2347 

39 DATA "F75B36BD5555728 
BF75D2E B80000328BF6B 
E1F5E" P 2324 

40 DATA "AAB5728BF680005 
8000032000402FFFFFFFF 
E7FE P \2627 

41 DATA , 7FCFEFFDBFEFFFFB 
DFFFE7F7EFCFEFF18FEFFF 
FD 3 \4534 

42 DATA "BFFFE7FDBFCFEFF0 
8FEFFFFDBFFFE7FC3FCFE 
FFF",4451 

43 DATA ”FFEFFFFFFFFFEDB6 


DE6FE492924FFFFFFFFF0 

005 JJ ,3887 

44 DATA "02FFFFFFFFD1B000 
000051FFFFFFFFD1C0000 
000”, 2861 

45 DATA "51BFCFF6EF51601F 
F6EF51403FF000514FF03 
FEF”,2807 

46 DATA "D14FCFCFEFD14FB 
037EFD14F4CCBEF914EBC 
F5E0 P \3385 

47 DATA "114D7CFAEF914D6 
CDAEFD14AF4SD6FD14AF8 
7D6F\3040 

48 DATA "D1000302FFFFFFFF 
FFFFD55557EAAAABD5555 
7£A” 1 3323 

49 DATA "AAABD55557EAAAA 
BD55557EAAAA8D55557E 
AAAAB7 ( 3221 

50 DATA "D55557 EAAAABFFF 
FFFFFFFFF000402FBF557 
EFF5”,3563 

51 DATA "F4A7DFFBF407EFF5 
F007DFFBFFFFEFF5FFFFDF 
FB" a 4319 

52 DATA "FFFFEFF5FFFFDFFB 
FFFFEFF5FFFFDFFAAAAAAF 
F5'\4715 

53 DATA "55555FFFFFFFFFFF 
FFFFFFFFFFFFFFFFFFFFFF 
00", 4345 

54 DATA "0402EFFFFFEFFFFE 
7FFFE7FE7FCFEFFE7FEFFF 


FF",40?3 

55 DATA "FFFFE7FE7FCFEFFE 
7FEFFFFE7FFFE7FFFFCFEF 
FE",4520 

56 DATA "7FEFFFFE7FFFE7FE 
7FCFEFFFFFEFFFFE7FFFE7 
FE",4440 

57 DATA "7FCFEFFE7FEF0004 
02FFFFFFFFFFFFFFFFEAAA 
A A",3813 

58 DATA "AAO5555555E802A 
802D3F555F9EA020902D2 
0555",2379 

59 DATA "01EA020902D2055 
501EA02A902D0055401EA 
AAA A ",1828 

60 DATA "AAD5555555FFFFFF 
FFFFFFFFFF000402FFFFFF 
FF",3704 

61 DATA "FFFFFFFFFFFFFFFFF 
555555FFAAAAAAFF55555 
5 F", 382 5 

62 DATA "FBFFFFEFF5FFFFDF 
FBFFFFEFF5FFFFDFFBFFFF 
EF M ,4956 

63 DATA "F5F007DFFBF7F7EF 
F5F407DFFBF557EFF5F4A 
7DF”,4119 

64 DATA "0001028B8B8B8B8 
G8B8B8B8B8B8B8BSB8B8 
B8B00",2227 

65 DATA "0102D1D1D1D1D1D 
1D1D1D1D1D1D1D1D1D1D 
10000",3347 
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OIRECCSONAMIEIMTO DE 103 
GRAFICOS 

A continuation realizaremos la ta¬ 
bs a niiuiero 2„ que ser£ hi de direction 
dc cad a uno de los grtificos sin contar 
los valorem dc aneho y alto. Si cl gr£- 
fico (J cst4 en la 26000, en la tabla dc 
direction de grafkos debeTemos intro¬ 
ducer 26002 en la direccidn donde va- 
yamos a situar did) a tab la. Asi, et ini¬ 
tio de nuestra tabla sc haIIa en la 
32000, por lo que deberemos eoloear 
en la 32000, la primers dircccidEi del 
graficoO 1 , en nuestra easo 26002. Esta 
segundu labia la llamaremos DIR- 
GRAFS. 

10 BORDER 0: PAPER 0: INK 7; 
BRIGHT 1: CLS 

15 RESTORE 20: FOR n=32000 
TO 32029: READ a: POKE n, 
a: IMEXT n 

20 DATA 2,128,85,128,200, 
128,27,129,158,129,225, 
129,52,130,103,130,170, 
130,237,130,48,131,115, 
131,134,131,0,0,0,3 


CODIFfCACION DE PANTALLA 

La tabla ntimcro 3 es Sa gcneradora 
de la pant alia, pues combi n a dc tal 
moda los graficos que podrSn surgir 
infinitud de paiitallas. Lo primero que 
hay que hater es rodifiear las panta- 
llas, para ello vamos a explicar que es 
codificar una pantalla, Codificar una 
pantalla es, una vez re alizad as 3 as 
atueriorcs tablas GRAFS y DIR- 
GRAFS, crear tiny pantalla a partirde 
graficos codificados cn unas determ 1- 
nadas posiciones y con linos colores. 
En nucstro caso, al scr un mapemlo 
con scroll y sdlo imprirnc cn las dos It- 
ncas superiores, por lo tanto en la co¬ 
dification dc las pantalias sdlo vans la 
position horizontal y el niimero de 
graficos que queremos imprimir. 

10 BORDER 0: PAPER 0: INK 7: 
BRIGHT 1: CLS : POKE 
26999,1 

15 RESTORE 20: FOR n=27000 
TO 27180: READ a: POKE n, 
3: NEXT n 


20 DATA 10,8,0,0,13,0,1,20, 
0,2,10,8,0,3,16,0,4,20,0,5 

21 DATA 19,8,0,11,9,0,6,12, 
0,9,16,0,8,20,0,9,24,0,12, 
19 

22 DATA 8,0,11,9,0,4,13,0,6, 
16,0,8,20,0,7,24,0,12,19, 

8 

23 DATA 0,11,9,0.8,13,0,6, 
16,0,8,20,0,10,24,0,12,16, 
8,0 

24 DATA 11,9,0,8,16,0,8,20, 
0,9,24,0,12,13,8,0,11,9,0, 
8 

25 DATA 16,0,8,24,0,12,16,8, 
0,11,9,0,8.13,0,6,16,0,8, 
24 

26 DATA 0,12,16,8,0,11,9,0, 
8,16,0,8,20,0,9,24,0,12, 
16,8 

27 DATA 0,11,9,0,8,16,0,8, 
20,0,7,24,0,12,19,8,0,11, 
9,0 

28 DATA 8,13,0,6,16,0,8,20, 

0,10,24,0,12,19,8,0,11,9, 

0,8 

29 DATA 13,0,6,16,0,8,20,0, 
9,24,0,12,255,0,0,0,0,0,0, 

0 

En nuestra nitina hemos csoogido la 
direccibn 27(KM) para oolocar la labia 
3. lista direccidn la podemos modifi- 
car cn la linca 880. Una position me- 
nos, la 26999, guards el numero dc 
pantalla que queramos imprimir. Esto 
quicre decir quc si re nemos varias 
pantalla!? codificadas y pukeamos cn la 
direccidn 26999 el valor 5, y llama mos 
a la rutin a budeadora dc mnpcadn 
apareccr£ la pantalla ntimcro 5. En 
nucstro ca$o, a I cstar tan sdlo codifi- 
eadas las dos lfncas superioreS no apa- 
reced la pantalla ntimcro 5, sino la 
parte de nucstro grafico ntimcro 5. Te- 
niendo la direction 271.KM) como dirce- 
tidn de la eodificatibn de pant alias, 
ah) cstS la longitud quc ticnc la pan¬ 
talla + 1. En la siguiente position a 
esta, ya empezamos a const ruir la pan¬ 
talla de la siguicnic matters: cl primer 
valor que lenemos que dar es la posi¬ 
tion horizontal donde queremos im- 
primird grafico en baja resolution. El 
segun do valor que lenemos que dar es 


la position vertical donde queremos 
imprimir el grafico cm baja rcsolucidn. 
Y el tercer y ultimo valor el niimero 
de graficos quc queremos imprimir. 
Esta operation la real tea re mos tantas 
veccs grjifieos queramos en la 

pantalla. 

Si hemos impreso 4 graficos, la lon¬ 
gitud de la pantalla sera 4 (graficos im- 
presos) x 3 (valores que tiene cada 
grafico) = 12+3-13 longitud de la 
pantalla. Este valor sc pondra, como 
hemos expticado aiiteriormcnte, en la 
tabla 3r Y repetiremos esta formula 
ta mas veccs como pant all as quera¬ 
mos. 

Hechas lodas las pantallas coioca- 
remos un 255 en la tiitima posicidn de 
la liltima pantalla. coni proban te para 
retornar. Y con esto sc tormina la ma¬ 
nipulation dc las rut in as, A esta ul¬ 
tima rutina la llamaremos COD- 
PANT. 


DEMOSTRACION 

( r Cbmo ejecutar la demostration de 
la rutina de niapeado? Si disponemos 
dc un ensaniblaclor, teelearemos cl 3ts- 
tado emamblador que aparece en es- 
tas ptiginas. Antes de concrlo es me- 
jor salvarlt>. Despues So ensamblare- 
mos y bajaremos al BASIC. Ubicado 
el programa cn la direccidn 50000 car- 
garemos los programasGRAFS, DIR- 
"GRAFS, y COD PANT independicn- 
temenle. Cargarlos y cjecutarlos, Una 
vcz en memoria llamaremos a la rutina 
en eddigo maquina, con un RAN¬ 
DOMIZE USR 50000. 

Para volver a repetir et efecto ha- 
reinos S J OKE 26999,1: RANDO¬ 
MIZE USR 50000. 

1 REM ******* C/M ******* 

2 LET n = 50000: RESTORE 

3 FOR i=20 TO 36: LET 
cont=0 

4 READ a$ 

5 FOR j=l TO LEN a$-l STEP 2 

6 LET d=16*(C0DE 
a$(j)“48-7*(a$(j)> T, 9 ,, »+C0DE 
a$(j+l)“48-7*(a$(j+ 

7 POKE n,cf: LET cont=cont+d: 

LET n = n+1: NEXT j 

8 READ a 


INPUT 11 

















_ ||go mciquin^__J 


9 IF aocont THEN GO TO 14 

13 PRINT AT p,{3;"LINEA: ";i 

11 NEXTi 

12 PRINT AT 0 t 0;' r OK. TODO 
CORRECTO”;AT l t 0 : "PUL$A 
UNA TEGLA PARA GRABAR 
EL C/M . n : SAVE ■'C/WTCODE 
50030,335 

13 STOP 

14 PRINT "ERROR OE DATA EN 
LA LINEA ";h PRINT "REVISA 
LAS DATA.S”; STOP 

20 DATA r 'AFD3FE3E4632485 
C21005811015801000336 
46EDM578 

21 DATA ”002100581101580 
13F003600EDB0DD21786 
93A77", 1590 

22 DATA "6916003D2807DD5 
E00DO1918F6DD7 E00FEFF 
C83D",2I83 


23 DATA "F5DD6E032600291 
1007D195E2356ED530A5 
GEB28M739 

24 DATA “2B5E2356ED53075 
BDD5E01DD5602ED53045 
B3E01M779 

25 DATA "32065BDDE5E5D5C 
D3AC4D1E1DDE1DD23DD2 
3DD23",3146 

26 DATA "F13D3D3D20BE061 
0C5CDE3C3C10B10F83A77 
693C".2302 

27 DATA "327769CD72C3C92 
1FF57i1FF560EC006201A 
7779",2232 

28 DATA "FE022002AF121B2 
E10F3D511E000ED52E3E 
D52EB”,2366 

29 DATA "E10D79E6072806F 
E01281318DAD511E0071 
9D179”,2014 


30 DATA "E63F20CF7CDE076 
7I8C9E521E00719EBE179 
E63F",2605 

31 DATA H FE0120BB7ADE075 
779FE0120B2C9F3DD2104 
58ED”,2528 

32 DATA "4B045B780F0F0FE 
6E06F78E618F640670600 
095DM795 

33 DATA "7C0F0F0FE603F65S 
57D5ED5B0A5B3A085B08 
0E08M652 

34 DATA "E5DD4603DDCB024 
6200311003D1A77132310 
FA El", 1822 

35 DATA "240D20E87DE6E0F 
EE0280801E007A7ED4218 
097C",2277 

36 DATA "FE5730047DE61F6 
F083D20C9E1FBC9000000 
0000", 1869 




Z 




Suscribase ahora a 


S 


I 



PRHOO DE CUB1ERTA PTAS. 375 

MEMOS; £0 % cle deitiienEci a I tuscrlploT Ptas. 75 

1JSTED PAGA SOl.O PTAS 300 (-por e|enoplAr) 

SUSCRIPaON ANUAL i2 EJEMPLARKS 4.500 P<as. 
<900 Ptasl. USTED PAGA SOLO 3-600 Ptas 
<er.tirega a domic lilo g,reH!sj 


IN P UT le proper tim id 

INFORM AGIO N.„ DIVERSION... FORM AGIO N 


{un curs a complete de programad6n),.. 


, LA POSIBILIDAO DE MEJORAR 
SU NIVEL PROFESIONAL.,. 

EL NIVEL DE LOS ESTUDI05... 


INPUT 


BOLETIN DE SUSCR1PCION 



$i. iffrftmc INPUT SINCLAIR ti* l ate \\2 ciumTilarcsJi, a, preen eipervij dt rAt-rin rlfi A-ftflO Pi*--. AH-fJ-WHAWPOWE 
Pt* 1 - Wti* d picel-o normal dc porlacta He I? etemptaittt iudlM. |Pdr rimr. rjmylirnrnLt «j?c bouctln con vu dahM perMNd*ii 
■NIIiuxthh- eon Lina |N) La Ic-in'm < 1 * jroi UAled eloglda. rr.i'lale> an un *yfcre y dlJKrfldo y(i tl burth rd 4 > vr&wmol 


U Lnl*TTTlil- lC ^' ■ ■ 

Dtsciibw el 1T cP n 

ApTe nda 4 

£ 5 l4 siempte Si 


I 

| SKMHItr L. .1 Jill 
1 


-I—i—J l J I l 


r^HtClLKT 1 

FCHHCMM U-i. L 


-1—I—I-- 


. 


-I...L 


-J-1-L J L ■ 


j_i_:_| mm 

J MCUKta tl_L_ 


l L 


J L. 


J L 


J I l 


rtl' + L-Si;™ s_ 


I—- 


mo p»r« l. 

i mi i_i_i_ l 


J L- 


1 -J. J J 


-I-i— 1 L I L. 



Recdfte y em :n cste ctipin 

de ini=i«fijiri.io a. F,MSA. Ldpere tfr? Hoyos, Ml 

23002 Madrid, 

2 




Muy sertorrj mlra 


FOWHa 0€. PAGO ULEGIDA krarrJbH.,:* Q &4'fC4 n ^ .. .. [_] 

_ ?-a»n iwmwaavtt gut ■JfrifiK' 4 tin* dr IONA . □ 

INj.TftOCCIQME 5 PL IXiMCC il.lAC.TJN BANl'jftfilA h-- « eteghla j»f jsMdl 

---—___ de __ A* J-J__ 


J 

| 

I 


E.« im-jjiv rjiiv. eon r*rgn a mt cuenra 
EJlwrlal pljmtTA ACOSTJNr a nombe« da 

I- i - 1111 _J I_L. 

■- i -■-' 1 1 1 MlOTON 1_J_I_ l _L 


i J L 


•*!indar.. halts nuuva avtsoi. el |>ac.o de Jen re: tor qua let |MM«n»rJ. 

l I I J L I I I I I I I■I I L I I I I I I ■ I r 


J - L I t J 


iiii i L 


l I l-L.I 


-I——1-t I 


1 1 1- L J L 1 I J l L 


-L. 


FiiTMA 


| 
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En INPUT estamos convencidos de que aun 
puedes hacer muchas m£s cosas con tu 
ordenador. Sin duda, muchos lectores estareis 
utilizando vuestro micro para funciones de fo mas 
variadas, en unos cases; pintorescas, on otros; 
mientras que aigunos listillos habran podido 
utilizarlo para resolver tareas complejas. Es ibgico, 
modificando programas y vartando los perifericos 
nuestro ordenador puede prestar sus servicios en 
infinidad de facetas. INPUT quiere que esas 
aplicaciones y utilidades a las que has conseguido 
dedicar tu ordenador, sean conocidas por todos 
sus lectores y por eso ba organizado el <cConcurso 
de Aplicaciones y Utilidades^, en el que puede 
participar cualquiera de nuestros lectores. 


UTILIDADES Y APLICACIONES: Si tu orde¬ 
nador controls la calefacddn de tu" casa t gobiema 
un robot, dirigc un pequeno negocio, organ iza la 
maqueta de tu trcn ctdeiritti, o eualquier cosa in- 
teresatue j original; envl'anos informactbn grafica y 
listados de lus programas, grabados en un cassette, 
diskette o microdrive, 

Todo ello habra de venir acompariado por un 
lex to que aelarc cuat es su objetivo, el mudo de fun- 
donamiento v una explieacibit del come lido que 
cum piers las di stint as retinas que lt> comptmen. FI 
luxto se presentarEi en papel de tairiEino folio y me- 
canografiado a dos espados. No imports que la re- 
daccidn no sea muy data y cuidada; nuestro equipo 
de expertos se cncEirgani de proportion arlc la forma 
mks atractiva posiblc. 

UN JURA DO prop in deeidirfi en eada momenta 
que colabor aciortes re Linen los requisites adecundos 
para su publication, v evaluara la cuanlfa del pre¬ 
mie en me Id lice Etl que se hagun aereedoras. 

No ol vide is indicar Claranieme parsi que ordena¬ 
dor estii preparado el material, as! como vuestro 


nombre y direction y, cuando sea posible, un Lel£- 
fono de comae to. Entrc todos los trabajos recibidos 
durante los prbximos tres meses SO RTF A RE- 
MOS: 

* Un premia de 50*000 ptas* 

* Un premio de 25*000 plus, 

* Un premio de 10*000 ptas* 

en material microinformatico a elegir por 
los afortonados* 

jNo os dcsanimcisL por muy simples o complejas 
que puedan pareccr vucstras ideas, todas estan re¬ 
vised as con el m Ax into interns. 

input msam 

Aribau, 185. Plants 1. a 

Q 8021 mmxk 

NOTA: INPUT kvo- sc responsabiliM dc lit dcvalucidn del ma¬ 
terial que isd vaya a-mmpaflEidu pur -un sobre attocuado con cl 
- franqueo oitrrcsptsiidietite. 


INPUT 13 





















Apli€«K' oneS 


DISENO ASISTIDO 
POR ORDENADOR 


Dibuj os en alta resolution,, precisos, 
lirnpins, Isitilts de realizar ton solo mo¬ 
ver in i dedo: Ciifti es [o que ofrece cl CAD 
(computer aided design: distiio asistidn 
por ordenador). Con tl listadc qut te 
presents mos aqui„ no ticncs ncccsidad 
de olros programns para ohtener griifi- 
cos con ahsoluta t ad I idad. 

Con un software atiecuado T las ca- 
paddades grifieas de tu ordenador 
pueden brindarte una nueva y pode- 
rosa herrsmicnla dc dibujo. No im¬ 
ports si ercs un experio en dibujo o 
rruis bieii un especially to cn garabatos, 
lo importanie es que con el list ado que 
aqui le presentamos, lu puedes usar lu 
ordenadorcon la mi&ma (e incluso ma¬ 
yor) soltura que d lapiz y el papcl. 

En la indust ria,, el software CAD 
(Computer Aided Design) para main¬ 
frames, grandes ordenadores, permile 
a sus usuarios dibujar un objelo eon 
todo dcialle y simulnr las respuestas 
de un determinado disefio a dertos 
condicionantes como. por ejemplo., el 
peso de la c structure, el viento, la vi- 
braddn o I os cambios de temperature 
Es obvio que tales prcstaciones supe¬ 
rs n la capacidad de un ordenador do- 
m^stico, pucs requieren tanto et pro- 
cesamicnto de una cnornrte cantidaJ 
de datos como una refinada capacidad 
gniffca para produeir distintas vistas 
del objeto y realizar c3 kudos. 

Pero es freeuenie que un delineante 
o disenador sdlo necesite esEudiar o 
bien un details o el a&pecto general de 
la represent ae ion visual, En este as- 
peelo. el CAD se uonvierte en un ins- 
trumento que sustituyc papel y lapis 
en el dibujo tccnico, garantizando cl 
trazado perfeeto de curvas* rectas V fi- 
guras geoindrieas, con 3a permanente 
posibilidad de su correocidn o borrado 
instantanco. 

Este aspecto del CAD si que puede 
apiicarse a los microordenadorcs, 
tanto si te sientes intcresado en los as¬ 


pect os l£enieos del dibujo, como si te 
limitasa realizar pinitos de aficionado. 
Si bicn todos los micros presen tan ya 
sus mandates de dibujos como parte 
dc su BASIC habitual* elaborar un di¬ 
bujo detallado requicre nuchas tineas 
dc program a. 

Lo hueno de este programs de di¬ 
bujo es que una vez entrado, te per- 
mite dibujar lo que desecs dentro de 
las posibiiidadcs graficas dc lu orde¬ 
nador, sin necesidad de recurrir a ul¬ 
terior es programas. Te eoloca lodos 
los mandates dc dibujo bajo un sen- 
cj llo y d i recto control de tedos, de tal 
mode que 3o tinico que has dc haccr es 
sdeeeionar 3a opcidn o mover el cur¬ 
sor median le las tee las de flechas. En 
algunos casos. el programs ofrece 
mandates que no se induyen en cl 
BASIC esiandar que incorpora tu ma- 
quina. 

Puesto que las posibilidades grificas 
de los dislintos ordenadorcs oscilan 
bastante de uno a otro. es natural que 
los programas espcdficos se diferen- 
den en gran medida, y que cada uno 
interne sacar cl mayor provecho de su 
potencia, minimizando Eos puntos de¬ 
biles. 

Asel Spectrum puede visualizar 
con facilidad texto y grificos. Adenitis 
puede almacenar cn varias pantaitos 
distinta informacidn de ta (jut actual- 
mente sc est^ viendo. 

Para obtencr grMicos de alia rcso- 
luddn desde cl BASIC, los usuarios 
del Commodore 64 necesilan cl car- 
tuclto BASIC dc Simon. 


AYUOAS PARA EL DIBUJO 

El programs ofrece a I usuario un 
menu o lists de opciones para dibujar 
ya sean lineas, dipses, circulos o rec- 
tangulos. Selecdonando una de ell as y 
colocandy el cursor mediants las tc- 
dasde flechas en la posiddn deseada, 
puede s ere ar dibujos real mente espec- 



taculares, eon la garanii'a extra tie que 
todas tus Iincas seran del todo rectas 
y tus curvas perfect a mente lisas. Y si 
te equivDcas, tc concede la me reed de 
borrarlo todo y volvgr a empezar. 

Olras opciones permiten cambiar cl 
ct>lor del dibujo, o rdlenar areas con 
los colores dc !a pEilcia que desecs. Y 
una vez eoncluida la obra de arjg, tu 
puedcs optar o bicn por guardarla 
(SAVE) para futuros re toques, o bten 
hacerla desaparecer y comen star de 
nuevo. Esia misma facilidad te per- 
mite cargar (LOAD) una figura que 
no fue dibu jada con cl p resen te pro¬ 
gram a. Por ejemplo, sc puede toniar 
la pagiua delliiulode un trabjijo y mo¬ 
difier rla con nuevos dibujos. 
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■ 

EL ORDENADOR CONVERTIDQ EN 

UN UTENSILIO DE DIBUJO 

■ 

COMO DlfiUJAR ESBOZOS 



Y D1SENAR A PUISO 

■ 

COMO AMP LIAR LOS MANDATOS 

a 

LA OPCiON LINE GARANTIZA 


DE GRAFICQS 1NCORPORADOS 


ELTRAZADO PERFECTO 

a 

fmpleo del prdgrama 

a 

EMPLEO DEL COLOR 



El lisiado se divide en dos partes. 
La pnmeia esta disefiada dc lal forma 
que funcioua con independence dc La 
scgunda, y te permit ira ercar dibujos 
lineales como Los que te mostramos. 
Pero sdlo mas tarde anadimos algunas 
de las opcioncs m&s sotisliczidas de] 
menu. 

A1 ejecular el programs (RUN), se 
te ofrcce en pant all a an menu y un 
cursor. Para sclcccionar una ope Lon 
del menu debes col oca r el cursor a hi 
izquierda de la opcidn, mediante Las 
tedas control Q (arriha), A (abajo), O 
(izquierda) y P (derecha). Pulsa se* 
guidamente ENTER pEira cfectuar la 


selection, d incml dcsaparccera y el 
cursor qucdara solo £11 una pa nliilla 
varia. En cualquier memento se 
puede o bicrt volver at menu o aban- 
donarlo pulsando ENTER. 

La prim era opcidn del menu es 
DRAW, para dibujar pnntos sob re La 
pan tall a. Para milizar esta opcidn, 
mnevc cl cursor hasta donde descas 
iniciar el dibujo, y despuds pulsa 
SPACE, A parlir de all ora, sieinprc 
que muevas el cursor iras dejando un 
reguero de puntitos a donde quiera 
que vayas, Si lo deseas, puedes ace- 
lcrar el movimiento mantes iendo 
apretada La ted a SHIFT mientras 
inn eves el cursor. Para salir de la op¬ 
tion DRAW —una vcz finalizado d 


trazado de la linea dc puntos que de- 
scas— pulsa mievamentc SPACE, y 
podras mover ahora el cursor sin mar- 
car la pan ta I La, o bien vuelves al menu 
para seleccionar otra opcidn. 

La opcidn LINE funciona como 
DRAW, sdlo que irazando una linea 
comiiiua y sdlida sabre La pantalla; 
pulsa ENTER para sdcocionarla, co- 
loca el cursor cn el puuto inicial ele- 
gido y pulsa SPACE, seguLdumenie 
[leva el cursor hasta cl pun to final y 
pulsa SPACE de nuevo. La opcidn se- 
leccionada eslu dispomble siempre 
que no se cancele seleccionando otra 
L'ualquicra. Esto quiere decir que pue¬ 
des mo vert e hasta otra pun to v dibu¬ 
jar una nueva Linea, y otra, etc. 


OPGIONES PARA DAR COLOR A 
LA PANTALLA 

Para dar color a la pantalla ticnes 
dos opcioncs: PAPER te colorca los 
hordes y cl fondo, mientras que INK 
va dando color a Lo que dibujas. Una 
vez selection;! da una dc estas dos op- 
cioncs., aparecen en La pantalla unas 
oportunas indicaciones de ayuda para 
escoger el color. EL cursor te muestra 
d color de la tinta (INK) actual, Lo 
que te permite com probar instant^- 
neamejite d efccto dc tu selection. 
Una vcz que has respondido a Las in¬ 
dicaciones, la pun ta I La vuclve a I menu, 
pero el cursor de dibujo permanece 
donde !o dejastc. por lo que sdlo es 
cues I ion de conlinuar con el dibujo. 
Se pueden escoger los colores INK 
taiito antes como mientras se esta di- 
bujando, Solo una vez que hay as sa- 
lido de La opcidn de dibujo (ptilsando 
SPACE por segunda vez) la lines se 
da par definitive. 

Antes de feelear ten en clients una 
co«a itnpgrtante: este program a con- 
tienc lenguaje maquina, por lo tanto 
asegurate de guardarlo (SAVE) antes 
de hacerlo funcionar (RUN): 
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10 BORDER 4: PAPER 7: INK 0: 
OVER 0: CLS 

20 POKE 23658,0: LETOP=l 
40 DIM 0(12): FOR N = 1 TO 12: 
READ 0{N): NEXT N: LET 
x= 127: LET y=87 
60 LET xl =x: LET y 1 —y 
65 LET xx=0r LET yy=0 
70 FOR n=65368 TO 

65368+73: READ 3: POKE n, 
a: NEXT n 


100 RANDOM IZE USR 65380 
1020 PRINT INK 9;AT 2,9;” 
1030 PRINT INK 9;AT 3,9;” 
A DRAW 

1040 PRINT INK 9;AT 4,9;" 

- LINE 

1050 PRINT INK 9;AT 5,9;" 
3 PAPER 

1060 PRINT INK 9;AT 6,9;” 

U INK 

1070 PRINT INK 9;AT 7,9;" 


iff 


s 


/f RECTANGLE 
1080 PRINT INK 9;AT S r 9; " 

6 BOX 

1090 PRINT INK 9;AT 9,9;” 
^CIRCLE 

1100 PRINT INK 9;AT 10,9; 1 ' 
ERASE 

1110 PRINT INK 9;AT 11,9;" 

^ OOPS 

1115 PRINT I NK 9;AT 12,9; M 
COPY 

1120 PRINT INK 9;AT 13,9;” 

! LOAD 

1130 PRINT INK 9;AT 14,9;” 

L SAVE 

1140 PRINT INK 9;AT 15,9;” tJ 
1150 PLOT 72,48: DRAW INK 9; 
111.0: DRAW INK 9;0, 
111: DRAW INK 9—111, 
0: DRAW INK 9:0,-111 
1155 FOR N = 1 TO 100: NEXT N 
1160 PRINT INVERSE I; PAPER 
9;AT 0P+2,10;">” 

1170 PAUSE 0: LET 

a$—INKEY$: IF aS="” 
THEN GOTO 1170 
1175 IF a$=GHR$ 13 AND 

OP-9 THEN RANDOMIZE 
> USR 65404: RANDOMIZE 
USR 65363: GOTO 1000 
1180 IF a$-CHRf 13 THEN 

RANDOMIZE USR 65392: 
RANDOMIZE USR 6.53.63: 
FOR n-1 TO 100: NEXT n: 
GO TO 0{QP) 

1190 PRINT AT OP + 2,10;” ,r 
1200 IF a$= r 'a” THEN LET 
OP-OP+1: IF 0P=13 
THEN LET 0P=12 
1210 IF a$-”q" THEN LET 

OP-OP-1: IF OP=0 THEN 
LET OP-1 
1220 GO TO 1160 
2000 REM DRAW 
2005 FOR n = l TO 50: NEXT n 
2010 GO SUB 8000 
2060 IF 1NKEY$=CHR$ 13 
.THEN RANDOMIZE USR 
..65380: GO TO 1000 
2070 IF (NKEY$oCHR$ 32 
THEN GO TO 2010 
FOR n-1 TO 50: NEXT n 
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T2090 GO SUB 8000: PLOT x,y 
, 2095 IF |MKEY$ = CBR$ 13 

THEN RANDOMIZE USR 
$5330= GO TO 1000 
2100 IF l~NKEY$-CHR$ 32 
THEN GO TO 2005 
! 2110 GO TO 2090 
2500 REM LINE 
2505 FOR n = l TO 50: NEXT n 
2510 GO SUB 8000 
2515 IF INKEY$=CHR$ 13 
THEN RANDOMIZE USR 
.65380= GO TO 1000 
2520 IF INKEY$<>CHR$ 32 
THEN GO TO 2510 
-2525 FOR n-1 TO 50: NEXT n 
•\ 2530 LET xx=0: LET yy=0: LET 
I bx=x= LET hy=y p,Uxr 

f 2540 GO SUB 8000: POKE Fix, 

hyr DRAW OVER l : xx,yy : FOR 
n= 1 TO 5: NEXT n: PLOT 
hx,hy: DRAW OVER l;xx,yy 
2550 IF INKEY$oCHR$ 32 
THEN GO TO 2540 


! 2560 PLOT hx.Fiy- DRAW xx,yy : 

- GO TO 2500 

3000 REM PAPER & BORDER 
3010 PRINT #1;AT 0,0; "Color 
del Pa pel (0/7)?” 

3015 LET a$-!NKEY$ 

3020 IF a$<’ p 0” OR a$>"7” 

THEN GO TO 3015 
3030 PGKE.65535 f VALa$*8 
3035 RANDOMIZE USR 65416^ 
3040 FOR n=l TO 50r NEXT n 
3050 PRINT #1;AT 0,0f Color 
del Borde (0/7)7" 

3060 LET —|NKEY$ 

3070 IF aS<"0" OR a$>"7" 

THEN GO TO 3060 
3080 BORDER VAL a$ 

3090 PRINT #1 : AT 0.0;" ";TAB 
31;" ";TAB 31;” ” 

3095 RANDOMIZE USR 65416: 
RANDOMIZE USR 65380: 

GO TO 1000 
3500 REM INK 
3510 PRINT #1 : AT 0,0; 


r 'Selccciona Tinta (0/7)” 
3520 LET a$ = lNKEY$: IF 

a$< ,r 0" OR a$>”7” THEN 
GO TO 3520 
3530 INK VAL a$ 

3540 PRINT *1;AT 0.0;" ";TAB 
3l; ,r GO TO 1000 
7500 GOTO 1000 
8000 REM RUTINA INKEY$ 
8005 PLOT OVER l;x,y 
8010 LETa$ = IN KEYS 
8020 IF a$ = ”q” AND y<175 
THEN LET yl=y+l; LET 

yy=yy+i 

8030 3F a? = ”a" AND y>0 THEN 
LET y 1 =y— 1: LET 

yy-yy^i 

8040 IF a$="p" AND x<255 
THEN LET xl-X+1; LET 
xx=xx +1 

8050 IF a$= rr 0" AND x>0 THEN 
LET xl — x— 1; LET 

XX —XX — 1 

8060 IF a$-"Q" AND y<172 
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8070 


8080 


8090 


8095 

8100 


9000 


9010 


9020 


9030 


THEN LET yl = y+4: LET 
yy=yy+4 

IF a$="A" AND y>3 THEN 
LET yl=y-4: LET 
yy = yy-4 

IF a$= N P' J AND x<252 
THEN LET xl^x+4; LET 
xx=xx+4 

IF a$ = J, 0" AND x>3 THEN 

LET xl-x-4; LET 

xx=xx—4 

PLOT OVER l ; x,y 

LET x=xl; LET y —y 1: 

RETURN 

DATA 2000,2500 r 3000 r 
3500,4000,4020,5000, 

5500,0,6000,7 000 ,7500 
DATA 17,0,64,33,30, 

195,1,0,27,237,176,201, 
17,80,195,33,0,64,1,0, 

27.237.176.201 

DATA 17,168,222,33,80, 
195,1,0,27,237,176,201, 
17,80,195,33,168,222,1, 
0,27,237,176,201 
DATA 33,0,88,6,4,197,6, 
176,203,158,203,166, 
203,174,58,255,255, 
134,119,35,16,242,193, 

16.236.201 


4060 



4080 

4090 


4100 


4110 

4120 


4130 

4135 

4140 


4150 


1.41.60 


5020 

5030 


eAX . 


5040 


El anterior programa muestra c6mo 
puedes control ar mediantc el teclado 
la potencia en graficos tie tu ordcna- 
dor, a I liernpo quo te permits truzar 
disarms ext re mad am e me refin ados. 
Pero faltan todavfa bast antes- binde¬ 
ries si que rentes dotal el programs dc 
supotential total. Falta, sobre todo. la 
posibilidad dc colorcar areas. Habras 
vis to estas opciones adicionales en el 
mend, pero hast a ahora no babras po- 
dido acceder a eilas. 

Carga (LOAD) el programs ante¬ 
rior, y ahddele a bora c.stas h'nctts: 


jsm 

'5060 


5070 


5080 

5090 


4000 

4010 

4020 

4030 

4040 

4050 


REM RECTANGULO Y CAJA 
LET box-0: GO TO 4030 
LET box— 1 

FOR n = l TO 50: NEXT n 
GO SUB 8000 
IF INKEY$ = CHRt 13 
THEN RANDOMIZE USR 
65380: GO TO 1000 


+SB00 

F55T0 

5520 


5530 


_5540 

6090 

6010 


IF INKEY$oCHR$ 32 
THEN GO TO 4040 
FOR n=l TO 50: NEXT n 
LET xx^=0: LET yy=0: LET 
hx=x; LET hy~y 
GO SUB 8000; FOR n = l 
TO 2; PLOT hx,hy 
DRAW OVER l;0 # yy: DRAW 
OVER 1 [XX,0: DRAW OVER 
l;0,-yy: DRAW OVER 1 ; 
-XX, 0; NEXT n 
IF INKEY$oCHR$ 32 
THEN GO TO 4090 
PLOT bx,hy: DRAW 0,yy ; 
DRAW xx,0; DRAW 0,-yy: 
DRAW ~xx,0 

IF box=0 THEN GO TO 403® 
IF xx=0 THEN GO TO 4040 
FOR n = hx TO hxTxx STEP 
SGN xx 

PLOT n,hy: DRAW 0,yy : 
NEXT n 
GO TO 4040 
REM CIRCLE 
FOR n -1 TO 50; NEXT n 
GO SUB 8000 
IF INKEY$=CHR$ 13 
THEN RANDOMIZE USR 
65380 : GO TO 1000 
IF JNKEY$<>CHR$ 32 
THEN GO TO 5020 
FOR n=l TO 50; NEXT n 
LET xx=0: LET yy=0; LET 
hx—X: LET hy=y 
GO SUB 8000: CIRCLE 
OVER l ; hx,hy P ABS xx= 
CIRCLE OVER l;hx,hy,ABS 
xx 

IF JNKEY$oCHR$ 32 
THEN GO TO 5070 
CIRCLE hx,hy,ABS xx: GO 
TO 5000 

rem'erase 

GO SUB 8000 
IF POINT (x,y)^l THEN 
PLOT OVER l'X r y 
IF INKEY$=CHRS 13 
THEN RANDOMIZE USR 
65380: GO TO 1000 
GO TO 5510 
REM COPY 
CORY : GO TO 1000 



7500 


INPUT "NOMBRE 13 ; LINE 
$: IF LEN n$>10 THEN 
G^TO 7000 

7010 LOAD n$C0DE 50000: 
RANDOMIZE USR 65368; 
GO TO 1M0 

INPUT "NOMtBRE ”3 LINE 
IF n$ = "’”\ELEN 
n$>10 THEN G^O 7500 
7510 SAVE n$ SCREEN$Vo 
TO 1000 X 

% 

Selecdona la opeidn RECTAN¬ 
GLE v mueve el cursor hasta una cs- 
quina del rectingulo que deseas di¬ 
bit jar, v pulsa SPACE, Mudvete hasta 
la esquina diagonalmeiile opucsta. So- 
gun te mueves va parpadeando el rec- 
tAngulo sobre la panlalla T de mqdq 
que puedes determinal su dimension 
con solo mover cl cursor, Pulsa 
SPACE para fijar su posicidn. 

La option BOX (caja) funciona 
como RECTANGLE, s6lo que se re- 
llena cl area interior, 

Otra figura que puedes dibujar es 
CIRCLE. Mucvc el cursor hasta 
do tide desees que estd el centre del fu- 
lum circulo, y pulsa SPACE- Despla- 
zate de spuds hasta cualquier punto de 
la circunferencia descrita y pulsa de 
mievo SPACE. 

La option COPY tc permile pasar a 
una impresora ZX la imagen que tie- 
nes en panialla, Selecciona la opcidn 
y responds a las indicaciones que spa¬ 
re cen on la pant a II a. Una vez rcatizada 
la copia, se visualiza el menu, 

Para corregir errores o cambiar 
areas dc Ja imagen, cm plea ERASE o 
bien OOPS. Pcedes borrar pequehos 
tie talks pasando el cursor por eneima 
borr^ndose un pixel cad a vez. Pulsa 
ENTER para volver at menu. 

Si debes hacer cambios mas gran- 
des,. selecdona OOPS. Se borrara 
todo lo que hay as hechti desde la ul¬ 
tima vez que fuistc al menti. 

Las dos ultimas opciones del menu 
son SAVE y LOAD (referidos solo a 
cassette), Cuando seleccitincs una de 
esias dos opciones, te solicit ari un 
nombre para e! fichero. Puedes cargar 
(LOAD) sin especificar el nombre del 
fichero s puNando ENTER t pero no 
ast cuando sc trata de SAVE. 


\ 
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PROCESADOR 
DE TEXTOS (III) 


Ahora putties clasificar listadus tn 
ordtn alfabclico y buscar una cadena es- 
ped'fien, y ad finite imprlmir Lus prnpins 

textos* 

En las dos primeras paries del tis* 
tado del editor de textos habfamos in- 
troducido las caratieristicas basicas 
del editor de pant alia que te perm iter 
•crear archives do textos o de da Los. 
Esta tercera parte, y final, propor¬ 
tion las rutinas SORT (Clasificar), 
SEARCH (Busear) y PRINTER (Im- 
presora). 


CLASIFICAR 

La caractensmea SORT empJea urna 
rutina de cl asif Ration de reposition 
retardada y es utilizada para clasificar 
3 Eneas de partial la en orden alfab^tico, 
Esta rutina es, por lo tanto, muy util 
parji realizar listas de clasificatitin de 
indices, registries o relaciones docu- 
mentates, 


BUSCAR 

La earacteristEca SEARCH inspec- 
cionara tu texto para una eadena es- 
pecificada y puede ser llama da du¬ 
rante el mode de edition, La bus- 
queda se ini da en el pun to donde se 
encuentra siluada la serial > asE que 
hay que asegurarse de que se ha lie a I 
principio de la copia, para garantizar 
que se buses todo Lo que se encuentre 
efeettvamente en I a memoria. 

Si una busqueda no tiene dxito —si- 
tuacibn li'pkra en el caso de que una 
eadena SEARCH hay a sido mal te- 
cicada— la serial marcadora se colo- 
cara al fondo dei texto. 

Cuando se complcta una operation 
de bitequeda, el programs permaiteee 
en el modo de edition, y puedes co- 
pi ar f£ci Entente el texto de Ja eadena 
SEARCH en el area de trabajo. 


I-a rutina PRINTER (Impresora) Ic 
perm it e prod licit cop Las impresas de 
tus textos archivados. Tiene aigunas 
caractcrf&licas cspeciales, incluyendo 
una rutina creada para conlrolar el 
formateo de la impresora. Si sc instala 
una combtnatidn de impresora que no 
sea conventional, se debera, por su- 
pueslo, cargar y activar un programs 
para controlar una interface antes de 
Ulillzar la salida a impresiun del editor 
de textos. 


FORMATEANDG 

l£n la pr£ctica tiene poco sentido el 
hecho dc cargar y edit nr tus textos si 
no puedes imprimirlos en la forma que 
deseas, Por ejemplo, puedes necesitar 
impriiTlir La cabceera o el encabeza- 
miento de un document o en el ceniro 
dc una line a, con un espacio de una 
linea debajo del texto, IJcilizando los 
enmandos de formateo esta tarea se 
conviertc en algo SCntillo. QtrO cjtm- 
plo, muy coint'tn, cs La escrilura de car¬ 
tas en las que el domicilio del remi- 
tente se cneuentra cerca del lado de- 
techo de la pagina y la direction a la 
que se dirige 3a misiva sc Silua a I lado 
izquierdo. 

Reeuerda. que los simbolos <juc sc 
utslizan ban de estar siempre dispucs- 
los at principio de la tinea sobre ia que 
actuan. 


FU NCI OWES DE LOS 
SIGN0S 

El signo # coloca la linea del texto 
en la parte derecha de la pagina. Si 
solo bay una linea, sera colocada de 
tal forma que su final se encuentre Lo 
mute cerca posible do la derecha, conio 
debe ir. Si hay algunas I Eneas juntas, 
cada ursa de el his con su signo corres- 
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CL ASIFICAR Y BUSC AFt 

_IMPRiMiR 

__ ESCRIBIR 

_FORMATEAR 

CEUTRAR TEKTOS 


Aplica« ones 



■ AUNEACIQN OERECHA 

■ AL lMEACtON EZQ U IERDA 

■ _ ESFACfAR TEXT05 

■ _ PREFIJAR LINEAS 

■ SIGNIFICADO DE LOS SIGNOS 



pcmdience, coino las quo puedcs ieucr 
para una direedon o domicilio, cl pro- 
grama mcdiru 3a tun git ud dc la Ivnqa 
mas cxtensa y recorrer& todas las otras 
para igualarlas. 

El simbolo Si hace que el texto si- 
guientt: str hide en tina nuevy Ihca a 
la izquierda dels pagina. Estc simbolo 
se utilizara al principle dc cada linea 
de la direction 0 domicilio que quieras 
aliiiear. Lt signo del ddlar T $, hace lo 
mismo. pero deja un espaeio dc una 
Imea sobre la line a. 

El asterisco, T coioca el texto cn cl 
centre dc la Lfnea. Cuando se utili?.a cl 
asterisco hay que tenertuidado de que 
el texto no sea demasiado extenso ya 
que tienc que scr mas cor to que una 
line a de texto normal. 

4000 REM PRINT OUT 
4010 LET TT = (PL-LL)/2 
4020 LET D=0 
4025 FOR N=T+3 TO B-3 
4030 LET A$=T$(N) 

4032 IF LEN A$-0 THEN NEXT 
N: RETURN 

4034 IF A${LEN A$-1)<>CHR$ 
32 THEN GO TO 4037 

4035 IF A$(LEN A$}=CHR$ 32 
THEM LET A$=A$( TO LEN 
A$-l): GO TO 4032 

4037 LET L=LEN A$ 

4040 LET C = 0 
4050 IF C = L THEN NEXT Hi 
LPRINT CHR$ 13: 

RETURN 

4060 LET C=C+lt LET D=D + 1: 

IF C>1 THEN GOTO 4100 
4070 IF A£(C)= N # rf THEN GO 
TO 4500 

4080 IF A${C) = "*” THEN GO TO 
4700 

4085 IF A$(C) = rr &" THEN GO TO 
4S50 

4090 IF A${C) = , '$” THEN 


LPRINT CHR$ I3;CHR$ 
13;: LET D=0: GO TO 
4900 

4100 LET N = N + 1e IF N>=B-1 
THEN LET L = LEN A$: GO 
TO 4111 

4105 IF T$[N P 1)= W $" OR T$(N, 
!) = ”#" OR T$(N, 1) = "*" 
OR T$(N J 11= M &■ , THEN GO 
TO 4110 

4106 LET A$ = A$+T$[N) 

4107 IF A$(LEN A$-l)oCHR$ 
32 THEN GO TO 4100 

4108 IF A$(LEN A$)=CHR£ 32 
THEN LET A$=A$( TO LEN 
A$- 11: GO TO 4107 

4109 GO TO 4100 

4110 LET N = N — 1: LET L=LEN 
A$ 

4111 IF A$(C)=CHR$ 32 THEN 
GO TO 4800 

4112 LPRINT A$(G); 

4115 IF 0>LL THEN LET D=0 

4120 GO TO 4050 

4500 LET NL-0: LETTA = LL: 
LET BE=0 

4510 LET LE = LEN A$-l: IF 
LE>LL THEN PRINT 
FLASH 1;"FORMAT ERROR 
- ADDRESS TOO LONG 11 : 
BEEP 2,10: RETURN 

4520 IF LE>BE THEN LET 
8E = LE 

4530 LET NL=NL+L LET 

N=N + L LET A$=T£{N) 

4532 IF LEN A£ = 0 THEN NEXT 
Nj RETURN 

4535 IF A$[LEN A$1=CHRS 32 
THEN LET A$=A$( TO LEN 
A$-l>: GO TO 4532 

4538 IF A$(l) = "#" THEN GO 
TO 4510 

4540 LET N = 3 

4550 LET TR = TT+LL- BE: FOR 
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G-l TO NL: FOR H=1 TO 
TR: LPRINT CHR$ 32;; 
NEXT H: LET N = N+1 ; LET 
AS=T$(N} 

4552 IF LEN A$=0 THEN NEXT 
N:RETURN 

4555 IF A$(LEN A$)=CHR$ 32 
THEN LET A$=A$[ TO LEN 
A$— I): GOTO 4552 
4558 LPRINT A$(2 TO ): NEXT G 
4560 NEXT N: RETURN 
4700 LETTA-{LL-L)/2-f-TT: IF 
TA<TT THEN LPRINT 
CHRS 13: PRINT FLASH 1; 
M FORMAT ERROR - 
CANNOT CENTRE": BEEP 
2,10: RETURN 

4710 LPRINT CHRS 13;: FOR 

M-l TO TA: LPRINT CHRS 
32;: NEXT M: LPRINT 
A$(2 TO );: LET 0-0: 


NEXT N: RETURN 

4800 LET SL=LL-D—1: LET 
CC = C+1: LET X= 1 

4810 IF CC> = LTHEN GO TO 
4825 

4820 IF AS(CCK>CHR$ 32 

THEN LET CC=CC+L; LET 
X=X+1: GO TO 4810 

4825 IF X> = LL THEN LPRINT 
CHRS 13: PRINT FLASH 1; 
"FORMAT ERROR - WORD 
TOO LONG"; BEEP 2,10: 
RETURN 

4830 IF SL>=X THEN GO TO 
4112 

4850 LPRINT CHRS 13;; LET 
D=0 

4900 FOR M = 1 TO IT: LPRINT 
CHRS 32;: NEXT M: GO TO 
4050 

8000 REM SEARCH 


8002 IF Z$=”" THEN PRINT 

#1;AT 0 r 0; BRIGHT 1;"N0 
TARGET STRING 
DEFINED"; PAUSE 100; 
PRINT # 1 ;AT 0,0;S$;SS; 
RETURN 

8005 PRINT #1;AT 0,0;S$: IF 
P=B-2 THEN LET P=4 
8010 FOR N = 1 TO 33-LEN 
Z$ 

8020 IFTKP.N TO N + LEN 
Z$)=Z$ THEN LET 
N = 33“LEN 2$; NEXT N: 
GO TO 8050 
8030 NEXT N 

8040 LET P=P+1: IF P=e-2 
THEN LET P-P-l: GO TO 
8050 

8045 GO TO 8010 
8050 LET P=P+1: GO SUB 
1000: RETURN 
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8500 REM SORT 

3505 PRINT # 1; AT 0,0;S$; 

8 $ 

8510 LET SS“4 
8520 IF T$(SS,l)-”7" THEN GO 
TO 3550 

8530 LET SS = SS+ 1 - IF SS=B 
THEN PRINT #I;AT 0,0; 
BRIGHT l;"NO LIMITS 
DEFINED": PAUSE 100: 
PRINT #1;AT 0,0 f S$;S$: 
RETURN 

8540 GO TO 8520 
8550 LET SE = SS+1 
8550 IF T${SE, 1>="7" THEN GO 
TO 8600 

8570 LET SE.-SE+1: IF SE-B 
THEN PRINT #1;AT 0,0; 
BRIGHT l;”ONLY ONE 
LIMIT DEFINED"; PAUSE 
100: PRINT # 1 ;AT 0 r 0; 
S$;SS: RETURN 
8580 GO TO 8560 
8600 IF SS=SE-1 OR 

SS = SE-2 THEN GOTO 
8900 

8610 PRINT #1;AT 0,0; BRIGHT 
1; "SORTING” 

8620 FOR l = SS+l TO SE-1 
8630 LET K = l 
3640 FOR J = l TO SE-1 
3650 IF T${J)<T$(K) THEN LET 
K=J 

8660 NEXT J: IF K>K THEN 
LET W$=T$(K): LET 
T$(K)=T$(I): LET 
T${I)=W$ 

3670 NEXT I 

8900 FOR N = SS TO B: LET 

T$(N)=T$(N + 1): NEXT N 
8910 FOR N=SE-1 TO B: LET 
T${NJ = T$(N +1): NEXT N: 
LET B = B-2: IF R>B-2 
THEN LET P=P-2 
8915 PRINT 4 1;AT 0.0;S$; 

SS 

8930 GO SUB 1000 
8940 RETURN 

Para utilizer la rutina SORT hay 
que dcfinir prlmero los puntos de ini- 
clo y dc final del bloqiie del texlo que 
sc desea clasiflcar. Para hater esla 


Ap I lead ones 



oper acton tedea un t sobre la pri- 
mera Hnea y debajo dc la ultima hnca. 
Para comenzar la dasificaritin, tedea 


CAPS SHIFT y 4. Leis dos j' desa- 


parecen del archivo de texlos durante 
el proceso de clasificacion. 

Para poder acecdc r a la opcra ciun 
SEARCH tedea [CAPS SHIFT I y 2, 
y sc te so licit a ni que e litres la cadena 
SEARCH o eadenade busqueda. Una 
vez que hay as introdueido la cadena 
elegida,, se intdara una basque da dc 
forma automatica. far pronto eomo 
d ordenador encuentre el elemcnto a 
igualar, cl cursor apareccra debajo dc 
su primer caso o ejemplo. Si deseas 
encontrar irvjis cases o clement o s en la 
cadena, tedea I CAP S SHIFT y 3. Si 
en cualquicr momenta deseas rede* 
finir la cadena objetivo, presiona 


CA PS SHIFT y 2. 


Tedea 6 para enviar el programs a 


ht rutina de impression cn La Itnea 4000. 
Esto ham que el lex to se imprima en 
las poslciones introducidas cn la linea 
100, esto cs, 32 earacteres por Hnca y 
32 lineas. por pagtna. Si se desea im- 
primir cn una diferente position cn la 
impresora hay quo redear 7Ten Lugar 
de 6, 

Cuando se formate a, sc neccsita 
prefijar cualquier lane a que se desea 
imprimiren uhei forma particular, uti- 
lizando un dmbolo especial. El signo 
4 preftja todas las hneas que se de¬ 
sea n situ ad as en la parte derccha de la 
hoja + 

El simbolo & fuerza la alimentation 
dc una hnca y da initio a otra en cl 
Indu izqinerdn del papel. El simbolo 
del ddlar, S. hate lo inismo, pero en 
su caso fuerza la alimentation de tins 
doblc linea. Utiliza cl signo * pEtra 
eentrar cl texto. 
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Aplicaciones 


EL ORDENADOR Y LOS 
CRUCIGRAMAS 


Huy hemos querida eenlrarnos en 
una :i plication dot ordenador que, a cin¬ 
que util, algunos pud ic ran considersr 
trivial pero que pucrfe servir de base a 
otras much as aplfcacioites iiiU-resanles. 

A todos los aficionados a los cmci- 
gramas nos ha ocurrido mas dc una 
vcz tener que dcsishr, al cabo de un 
cierto tiempo, por imposibilidad ma¬ 
terial de cominuar, especialmente 
cuando cl tenia cs mis irttercsnnte. 
^.Por que no servirnos del ordenador? 

La primera dificultad con la que nos 
solemos eneontrar es el reducido cs- 
pado reservado para cada casilla. 
Luego nos asalta la gran dudu: /,boli- 
grafo?, J&piz? El LApiz nos per mite 
usar la goma cuando nos cquLvoca* 
mos. pern el boligrnfo se ve mejor, y 
co mo vamos a tener que bEieer nuiy 
pooos ctmb i os. ya que somos unos ex- 
pertos,.. La verdad es quo siempre 
caemos en io mismo, y Iras umis cuan- 
tas idas v vetiiotas de filas a columnar 
y dc columnar a filas, adcrozndo con 
algunos earn bios de opinion, lo unico 
que conscguimos es tener aquellocon- 
fuso e im presentable, a fuerza dc me¬ 
ter goma y sob reporter nombres, La 
desesperation puede llcgarnos a] com- 
probar que una palabra que dabamos 
por segura. y las asodadas que enca- 
jabatt perfect amertte. sc convierten cn 
ail castillo dc Eircna que sc nos des- 
morona al com pro bar que la palabra 
clave cs otm y que por to tanto tene¬ 
mos que cehar Elba jo gran pEirte de 3 o 
que hemos construido con esfuerzo. 
La tcpiacidn de abandono es muy 
grande y con frecucneia oeurre que 
con 11 n sentido practice tenemos que 
abandonar. Justoen esc momento he¬ 
mos cambiado dc una situaddn pla¬ 
ce ntera y cstimubnte n otra de nefa 
fru st radon. 

Con cl programs que presentamos 
podremos tener un tantaho dc casilla 
edmodo, in depend iente de las dimen- 


sioncs del crucigrama, ya que haeemos 
nso dc una venttma dc nminio I? filas 
horizon tales y 9 verti calcs. Podremos 
borrar, modificar, y tantear palabras 
con gran faeilidad, y la presentacion 
siempre sera itnpeeablc. Incluso po¬ 
demos archivar lo realizado Itasta ese 
momento y columnar nuis adelantc fes 
un ei buera pra erica, a] monos cn los 
crudgramas de grandes dimensiones, 
ir haciendo grabacioncs periddicas 
para evitar que un corte de energia o 
una in ill a maniobra d£ eiI tniste con 
nucstro trabajo de horas). 

Una maniobra que much ns veces se 
intenta, y cast siempre hay que aban¬ 
don a r por poco practica, cs hacer un 
crudgrama ertre varias personas, 
A bora ya no te nemos que renundar a 
ese pequciio placer. Las proguntns 
puede leer I as uno, otm escribirlas y 
todos ver, opinar y disfrutar de 111 pEir- 
tidpacidm 

Rste aspecto pudiera resultar inte- 
rcsante cuando sc necesitc utilizer el 
crucigrama como herramienta didik- 
tica cn una clase de idiom as. botanica, 
zoologta. etcetera. 

Hay quien hace poesia, y iambicn 
quien escribe cnjcigramas. Apartc dc 
una gran imaginacidn sc requicre 
dc una base sobre la que escrlbiry mo¬ 
di fi car con gran facilidad y seguridad. 
Nuestro programa no contenipla el 
in Line jo del texto dc las preguntas del 
crucigrama, yaque alargEiria el listado 
y esiamos escasos de espaeio. Ado 
mas, la cscritura del texto con ayuda 
de lapiz y pajx '1 (o fichas) no prcscnla 
un execs i vo problem a. 

Hast a ah ora hemos ha hi ado solo de 
erneigramas, pero realmctilc el pro- 
grama podemos aplicarlo con igua] 
fort una a otros juegos a base de pa- 
nelcs dc coin tunas y filas como stiho de 
aibailo, damerogramas, jerogifficos, 
etc. Incluso podemos jugEir ei Jeis dEi- 
mEis, 

Considerando que la bEtse de este 


program a cs cl manejo de una gran 
pantatla ekclrontca, dc la cual visua 
lizatnos parte a traves dc una vcniana. 
encontrnreirios con seguridad doeenas 
de Eiplicaciones, Una dc cl I as pudiera 
ser preparar una pizarra cun los nom- 
bres dc una serie dc equipos dc fiitbol, 
de forma que podamos ir actualizando 
los result ados dc los di versos partidos 
a medida que vitmos teniendo resitl- 
tados par dales a parlir de las inftir- 
niEicioncs de radio o television. 

Ann cuando el tenia pareee inoferii- 
sivo, cl pmgrmna reviste cicrta com- 
plejidnd y de el se puedc saear lihei ck- 
perienda apreciable, Como siempre, 
to eomentEircmos con dclallc para 
aquellos que tengan in ceres en saber el 
porque y el ccimo. El lenguaje elegido 
cs BASIC, por su difusibn, aun 
cuando cvidcnlemente su manejo sc 
ria mas rdpido en cbdigo miquina, ha- 
eiendo uso tie ur lenguaje compilado 
como Tascat o eonipilando el pro¬ 
grams BASIC, En cualquicr ctiso pen- 
samos que en aplieaciores como las 
que hemos uulicado. una gran veloci- 
dad de pnoccso no cs vital, ya que unas 
veces tenemos que esperarque nos lle- 
guc el ditto que vamos a reflejar y 
aims tenemos que pensar y darle mu¬ 
ch as vucltas en Iei cabeza antes de dc- 
cidirnos a esc rib ir algo, De todos mo- 

■C - 1 

dos lo itiEis practice cs poncr run nos a 
la obra y ver edmo se com port a. 


manejo 

Una vcz tecleado el programa !o po- 
nemos en m n reha normal merle 
{ RUN) y !a primera pregunta que nos 
hacc es si desenmos trabajar con un 
crucigrama a Ini aeon ado en cassette, 
disco, niicrodrive o por el contrario 
queremos comcnzar con nno nuevo 
faCARGAR CRUCIGRAMA? [$/ 
N|). 

Si la. resptiesia ha sido (tS» cl pm- 
grama nos solicit a el nombre del cru- 
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■ 

UNA BASE PARA NUMEROSAS 

■ 

MANEJO 


APLICACIONES 

■ 

M0V1MEENTQ DEL CURSOR 

■ 

LOS CRUCIGRAMAS 

■ 

TECLAS ESPECIALES 

■ 

UNA GRAN PANTALLA 

■ 

COMENTARlOS SOBREEL 


ElECTRONICA 


PROGRAMA 


dgrama (^NOMBRE DEL CRUCl- 
GRAMA?) y d medio donde Ec le- 
ncmtJi ulmaceiiLido (C — cassette, 
D - disco, M - microdrive), CAS¬ 
S' ETTE'I>ISCX> M] C RODRIVE? C 
DM.) 

Si la I'cspucstii initial fuc (o 
cuulquier letra nienos «S»), se nos so* 
licita las dimensioned del erueigrama 
t ( -N. w DE CASILLAS HORIZON- 
TALES?, iNADE CASILLAS VER* 
TIC ALES?). 

De forma automation el ordenador 
uus presents en pant all a el ret leu Lido 
correspondientc, asl como informa- 
eidn sobte la situacidn del cursor. Este 
aparecera inicialmente cn la casilla del 
rinedn superior i/.quierdo (Fila I. Co 
lurnna I). El maxi itio reticulado cs de 
15 columnas y 9 fitas (sc ha elegldo 
esta dimen skin para qne resulte cd- 
rnodo el manejo en pantalla). Si lasdi* 
mens in ties del erueigrama son ina yo¬ 
res, la parte initial a visualizar cor res* 
ponder£ a las 15 columnas y 9 prime- 
ras fibs y aparece ra una informacidn 
complement aria indicando las dimen - 
sioites maxim as del erueigrama (ej, 
1/56 F—22 C=35 1/75, indie ara quo es* 
tamos movidndonos cn un erueigrama 
dc 1-56 fibs y 1-75 columnas y quo cs- 
tamos ope ran do en eslc momento en 
la casilla dc cruoe cnEre la fila 22 y la 
col urn na 35). Si las dimensiones de 
nucsiro erueigrama son inferiores. en 
ntia o las dos direccion.es, el cuadri- 
culado quedara centrado cm la pant a- 
IIa de forma automatica. y sohre til 
solo aparece ra informaeidn de la fila y 
columna aciiva. 

Una vcz dibujada la reticula del cm- 
eigrama se produce una pequena 
pausa husta quo aparece el cursor par- 
pad c ante, Esta pausa depende del ta¬ 
in a no del erueigrama en la pari alia. 
Aunque no se apreda a simple vista, 
realmenle se esta explorando el con- 
tenido de lodos los caracteres del fi- 
chero (matriz) que corresporden a la 
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pan ml Ea que esiamos visual izando 
( ha sla que hayainos i n t roduci do carac- 
teres se im prime «nada» sob re 
*blanco») y esto buclc en BASIC Neva 
su tiempo, como indicabamos a I co¬ 
ni ienzo. Tan pronto aparece en pan- 
talla cl cursor ya tenemos control so- 
bre el prdgruma, 


JVIOVUVIIENTD DEL CURSOR 

Hay que dislinguir cm re mo verse 
«dentro de la pantalla* y «dentro del 
erueigrama ». l.a pantalla es una ven- 
tana a trav£s de la cual nos mo vein os 
«sobre>* el erueigrama, pern el efecto 
cs el dc tencr una vcmana de- 

tras de la cual se desplaza el cruci- 
grama (ldgicamente esto solo liene 
sen lido cuando las dimensiones dcE 
erueigrama son mayo res que la ven- 
tana en pan Lai La) . El result ado es que 
cuando nos queremos salir de la pan- 
tall;! por la derccba, apa rente men le 
no cunscguimos nueslro propbsito y 
por el contrario la informaeidn de la 
pantalla se *desliza» haeia la iz- 
quterda. Cuando nos salimos luera del 
maroo de la vent ana, el programs ne- 


cesita situar cn pan la I la cada una dc 
las n nevus posit iones, procedentes del 
fie hero (matriz), y por tan to sdlo rea- 
parceen'i el cursor pasado un tiempo, 
tal como ocurrfa la prim era ve7. El 
programa intgrpreta que sc dcsea 
cambiar de ventana cuando queremos 
forzar una salida cn eualquiera de las 
direceiones, aun cuando esto no sea 
posible por et dimensionado (se 
vuelve a leer la misina informaeidn 
como si fuese di si bit a), Se mane j a asl 
por facilidad de programa, pero con 
unas poeas instrueeioncs mi4s el lector 
podia adapt a r el programs para que se 
di stingy cnire ventana igual tamaho 
que el erueigrama y ventana mcnor que 
d erueigrama. La diferenda son unos 
pooos segundos y homos preferido de- 
jar las cosas rrds send lias, Por otro 
lado. siinplemonte eon toner un cierto 
cuidado cn el manejo de las casillas 
marginales tul como se ifldica inasade- 
lante, tainbien se obvia esta pequena 
demora. 

Las tee!us para mover el cursor en 
las eualro directories son las corres- 
pondientes a las flechus (C Lips Shift + 
flee has). Tan pronto rebasenios (o lo 
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internemos) el J unite tie La cuadricula 
sc protludry cl cambio a otra vent an a, 
como ya sc ha indicado. A fin tie no 
perder el con lex lo general., cada 
nueva veniana solo se dcsplaza hast a 
un mdxiitm dc N column as y 5 fllas 
nuevas, Em los cambios de pantalla et 
cursor rcapareee en cl extreme de la 
fila o col urn na par dondc sylio. 

Exists otro juego de leclas (Symbol 
Shift + lice has) para desplazarsc di¬ 
rect amente erttre venianas. Esto re- 
s til la util cuando se desea manejar in- 
fonnacioncs bast ante alejadas dentra 
de] entorno del crucigraina. 

Cuando aun no henios realizado 
ninguna inscription, e] cursor esia en 
el rineOn superior izquierdo. Si en estc 
momcnio pulsumos. «A», esta letra 
aparccera bajoel cursor parpadeante, 
St pulsamos «CX esta lelra aparecera 
cn el lugar de la prim era. Si yliora pul- 
samoK * *tCaps Shift + —cl cursor se 
desplazara a La derecha un lugar. Al 
pulsar nuevamente «A» + ya no apa- 
reccra siiperpuesta a «Cw, si no en cl 
lugar del cursor, pern este sc dcspla- 
/ara automaticamentc un lugar hacia 
la derecha, cn espera dc ana nueva ie- 
ira, y as! sucesivamcnle has t a que sc 
a here la direction media me oira tle- 
cha (hacia aha jo o had a la izquierda, 
cn cuyo caso la escrilura sera auto* 
maiica cn esc sen lido) o hasta que se 
trate de pasur el lira he dc la carat it la. 
en cuyo caso SC prod Ltd r a un cambio 
aulonriitico dc vcntana. Si deseamos 
que csto no o-curra. euando el cursor 
est£, por cjcmplo, en la ultima casilla 
de la derecha, pulsaremos ^Control 
Shift T V'» y cstEircmos en una si¬ 
tuation analoga a la initial (las terras 
iran aparccicndo sucesivamcnle. sin 
producirse avance, hasla que se espe- 
cifique oira direction). 


TECLAS ESPECIALES 

Se han progrumado ires letras con 
Las funciones que se del alia n (cl lector 
no enconlraru dificuttad en programar 
otras letras o caracteres modificando 
la rntimi correspondiente, ex pi [cada 
mas adelante): 

* - Control Shift. + para 

■ Control Shift + * (a '» para 

* - Control Shift + para «■» 


Una vez que si memos los cuadms 
negros en las casEllas correspond! cu¬ 
tes, ya cstamos en condicioncs dc po 
nemos a jugar. 


GRABACIQN EN CASSETTE/DISCO 

En cualquier mo men to podemos 
realizar la grabatiori en soporte mag¬ 
net ico del conlenido del erucigrams 
(Symbol Shift + * f ») y continuar. 
Hsta option cstfi pensada tamo para cl 
case dc archivar un emtigrama ter- 
min ado como para el archive de las di- 
versas elapas. por seguridad o para 
continuar en otro momenta. 


C OMENTA RIO AL PROGRAM A 
BASIC 

Comentaremos aquellos bkiques 
fundonates de mayor in teres. 

Se genera una mutri/. de las dirnen- 
siones requeridas (DIM A$(DVMC t 
DHMC,l)i hnca 400) cuyos parame- 
iros se introduced mediantc INPUT 
ert las lineas 350/360. En diclia malriz 
sc ir5n alojando los caracleres de las 
diversas casillas. de manera que exists 
una relacidn biunivuca cm re otsilias 
del crudgrama y celdas de la matriz. 

Piirit apmvechar at maxi mo la pan- 
talla del Spectrum se ha dimension ado 
una mascara de crudgrama que ocupe 
31 columnas y 1^ filas, leniendo en 
cuenta que se requieren dos rcnglones 
para alojar la infonnacidn operativa 
sob re dimension ado total, posicior del 
cursor er. la pantalla y posieirin de 3a 
casilta activa en et ciudgrama (lineas 
81(3-910). No obstante ambos valores 
pueden redudrse si se prccisa, ya que 
eslau paramcirizados (ver line a 410). 
Cuando las dimensioned del cruei' 
grama nt> requieren toda la superfide 
tie 3n pantalla, la mascara sc reduce a 
la dimension preeisa y a la vez se cen¬ 
tra en la pantalla de munera automa- 
tica con ayuda de las rut in as tie las ti¬ 
neas 390-460 y 560-640, Cada ca racier 
oeupa el centra de una tasilla y se ha- 
I la rodeado por espacios vacios co¬ 
rrespond ielites n medio eanietcr. 

La leclura de tod os los datos co- 
rrespondienies a una pantalla se rea¬ 
ls za me thank 1 la rutina de la liney 740 r 

El Control del mo vim lento del cur¬ 


sor se realiza media nte las rutin as de 
las Ifneas 930-1500. Como puedc ob- 
servarsc cl procedimiento es un tan to 
«farragoso». En line as gene rales se 
trata dc coordinar La postddn del cur* 
sor en la pantalla. analizando en cada 
easo la tecla pulsada (deteeddn me* 
dianle linen 970) para anali/ar si st¬ 
ir ata de tecla de carjkter o tecla de 
despiazainicnto, eon 111 posicidn co¬ 
rrespond Sente en la malriz donde se 
aloja cl contenido de cada casiMa del 
ciudgrama. La rulina analiza igual- 
niente si se Iraspasan los limiies; de la 
mascara cn pantalla. para deddiir cull 
es la siguiente parte dc erucigranna a 
cxplorar 

Si el carletcr pulsado es * Symbol 
Shift + " H f' se de tecta en linea 1022 
y sc ejecuta hi rutina de grabacidn (If- 
neas 2000-2035). Mediantc esta rutina 
se archivan dos matrices :N() y AS(). 
En la primer a de las eu tiles se alma- 
cenan las variables que definen las di¬ 
mensioned del erucigrama y en la se- 
gunda figuran los caracleres de cada 
easilla del mismo, El nombre de cste 
fichero es cl elegido por nostilros (NS 
en linea 2010). Para el primero se uti- 
liza et mismo nombre pero anadien* 
dole autorniiticamente «.D». Csta cs la 
razOn de que solo se permitan 8 ca- 
racteres en el lilulo en lugjar tie los 10 
que indica el manual (ver linea 2011 ). 

En ei caso de querer partii de un 
crucigrama ya al mace n ado en cas¬ 
sette, disco o microdrive, el proceso es 
exaciamente e3 mismo pera a la in¬ 
verse (Ifneas 318/320* 490/495). Ob- 
servese que la carga de A$() se realizsi 
IdgicEimente de spues dc sn dimen sio- 
nado (linea 480), realizado con los da¬ 
tes eargados anteriormente en N(). El 
flag (0/1) define los dos modos tie 
aciuacidn (I[neas 310 y 370). 

En cste programa result a de capital 
ini port ancia el mane jo dc tod as a que¬ 
ll as variables que afeciun, suture todo, 
a b situacidn de los datos en la pan¬ 
talla y en la nuiiriz dc! crudgrnma. y 
por dlo vamos a referenciarlas, En las 
dos figuras puedc verse su significado 
de una nianera mas graficy. 

Por la cstructura tlel programs se 
pierde La posibiiidad de cambio cm re 
los diversos modos del ZX-Spectrum, 
ya que solo se permiten entradas 
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Aplicqci° neS 


FIG UR A 1 



DHMC-... Dimension Horizontal de la Matriz del Crucigrama 
DVWIC- ... Dimension Vertical de la Matriz del Crucigrama 
DHMP = ..... Dimension Horizontal de la Matriz de Pantalla 
DVMP=— Dimension Vertical de la Matriz de Pantalla 
RHMPENIC = Ref. Horiz. de Matriz Pantalla En Mat. Crucigrama 
RVMPEMC Ref. Vert, de Matriz Pantalla En Mat. Crucigrama 


(INKLY$) tic un solo caracter \ para 
e! paso a tfL», «C*. «G» sc rcquiere 
una cmnuki com bin ad a. Por esta ra¬ 
zor habria quo tenor la precaution do 
arrancar siempre on nodo «C» y ado¬ 
rn is no sc tiene acceso at uso do 
«UDG s», necesarins para las lotr:is o 
oar adores quo no oxision en e] teclado 
ingles como pueden see o ■>< G » r 
fgual problem;! tend names para hater 
uso do los caractcrcs graficos (ej. ciia- 
tlrado negro). 

Cor la Ifnea 218 (POKE 23658,8) 
conseguircmos situarnos cn modo «C» 
(may Use u las), i ri de pe nd ientemente 
del modo en quo estuviesemos ai 
a r ran quo- 

En las Imqas 200-215 tenemos ale- 
jado el proeedimienlo para re prog ra- 
nuir dertas teclas do caraoicres cstSti- 
dar, norm a I monte imposible por en- 


contrarse en ROM. Detallaremos los 
diversos pasos: 

1) Coplamos cl juogo estandar do 
caracteres en ROM a pariir de hi 
posieidn do inemoria 6000 con 
ayuda tie la siguienle rntina: 

Ensambkdor C/M 


LD HL, 15360 33,0,60 

LD DE,60000 17,96,234 

LD BC.2048 1,0,8 

LD1R 237,176 

RET 201 

Esta rutina se earga a partir de la 
posieidn 65000 media me el buclc 
de DATA de las tineas 202/205 y 
sc rueda eon RANDOMIZE 
GSR 65000 (tinea 207). 

2) Con el bade de la Ifnea 211 sc 
leen las DATA de la li'nea 213, 
correspond ientes a I. nuevo con- 


[enido de los carat teres dc ed- 
digo ASCII 64, 95, 96. pasa 
a ser «_» pasa a *U* y fi- 
nalmente «£» a *■». 

3) Med [ante los POKE de la linen 
235 instmitnos al ordenador para 
que a partir de esle momenta 
util ice el nuevo juego de carac- 

[CFCS. 


10 REM PROGRAMAPARA 

HACER CRUCJGRAMAS 

15 REM 

20 REM ********************* 
30 REM * M0LIS0FT87 * 

40 REM ********************* 
45 REM 

50 REM DEFINJCIOR DE 
VARIABLES 
60 REM 

65 REM DHMC= 

DIM, H0RIZ. MATXR 
67 REM DVMC = 

DIM. VERT. MAT.CR 
69 REM DHMP= 

DIM.HORZ.MAT.PA 
71 REM DVMR-= 
DJM.VERT.MAT.CR 
73 REM RHMPEMC=REF,H.MA 
T.P.E.C. 

75 REM RVMPEMC = REF.V,MAT 
P.E.C. 

77 REM RHMPEP= 
REF.H.MAT.P.E.P, 

79 REM RVMPEP- 
REF.V.MAT.P.E.P. 

81 REM PHCP= POS.H.CUR.EN 
PA 

83 REM PVCP= POS.V.CUR.EN 
PA 

85 REM PHCEMC- 
POS.H.CUR.EN CR 
87 REM PVCEMC- 
POS.V.CUR.EN CR 
190 REM 

200 REM CARACTERES 
ESPECIALES 

201 REM 

202 CLEAR 59999; FOR N=0 TO 
11: READ A: POKE 

65000 + N.A: NEXT N 
205 DATA 33 r 0 r 60 p 17,96,234 b 
1,0,8,237,176.201 
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FIGURA 2 



RHMPEP= Ref. Horiz, de !a Matriz de Pan tat fa en Pan tafia 
RVMPEP= Ref. Vert, de la Matriz de Pantalla en PantaJIa 

PHCP -. Posicion Horizontal del Cursor en PantaJJa 

PVCP-......... Posicion Vertical del Cursor en Pantafla 

PHCEMP=, Posicion Horiz. del Cursor en Matriz de Pantaila 
PVCEMP^. Posicion Vert, del Cursor en Matrrz de PantaiJa 

- - - - - 


207 RANDOMIZE USR 65000 
211 FOR M=1 TO 3; READ A: 
FOR J = 0 TO 71 READ W: 
POKE (60000+A*'8+J),W: 
NEXT J : NEXT M 
213 DATA 64,66,0,66,66,66, 
66,60,0,95,60,0,98,.82, 
74,70,66,0,96,255,255, 
255.255,255,255,255,255 

215 POKE 23606,96; POKE 
23607,234: REM CAMBIO 
AL NUEVO JUEGG DE 
CARACTERES 

216 DIM N(2): LET X$ = tJ R” 

217 BORDER 6: PAPER 6: 
BRIGHT 1: INK 0; CLS 

21S POKE 23658,8; REM 
CAMBIO A MAYUSCULAS 
219 REM 


220 REM CARGA DE 

CRUCIGRAMA DESDE 
CASSETTE/DISCO/ 
MICRODRIVE 
225 REM 

240 CLS : PRINT #0: PAPER 7; 
BRIGHT 1; INK 1 ; "CARGAR 
CRUCIGRAMA ? (S/Nr 
250 LET P$ = INKEY$: IF 
THEN GO TO 250 
260 IF P$o"S" THEN GO TO 
330 

310 CLS : LET K=h INPUT 

PAPER 7; BRIGHT 1; INK 1; 
"NOMBRE DEL 
CRUCIGRAMA”;N$; IF 
N$ = ’■ |, THEN GO TO 310 
312 IF LEN N$>8 THEN PRINT 
#0; PAPER 1; BRIGHT 1; 


FLASH 1; INK 7;"NOMBRE 
MUY LARGO (Max. 8)": 
PAUSE 0; GO TO 310 
315 PRINT #0; PAPER 7; 
BRIGHT 1; INK 1 ; 
"CASSETTE/DISCO/ 
MICRODRIVE? C/D/M JJ f 

318 LET X$ -1NKEYS: IF 
X$-"C” OR X$="D” OR 

THEN GO TO 320 

319 GO TO 318 

320 CLS : IF X$ —"D" OR 
X$ = "M” THEN LOAD 
1 jN$ + '\P” DATA NO 

322 IE X$="C''THEN LOAD 
N$-F".D" DATA NO 
325 LET DHMC=N£ 1): LET 
DVMC=N(2); GO TO 390 
327 REM 

330 REM DIMENSIONADO 

INI Cl AL DEL CRUCIGRAMA 
340 REM 

350 INPUT PAPER 7; BRIGHT 1; 
INK 1 ;"No. CASILLAS 
HORIZONTALES ";DHMC 
360 INPUT PAPER 7; BRIGHT 1 : 
INK 1;”No. CASILLAS 
VERTICALES ”;DVMC 
370 LET K-0 
380 REM 

390 REM DfMENSIONADO 
MATRIZ CRUCIGRAMA 
400 REM 

410 LET L-31: LET A=19; REM 
CASILLAS UTILES EN LA 
PANTALLA 

420 IF DHMCXL-D/2 THEN 
LET DHMP=L 

425 IF DHMC<=(L-l)/2 THEN 
LET DHMP-DHMC*2+ 1 
430 IF DVMCXA- l)/2 THEN 
LET DVMF=A 

435 IF DVMC<=(A-l)/2 THEN 
LET DVMP=DVMC*2 + 1 
440 LET RHMPEMO0: LET 
RVMPEMC=*0 
450 LET RHMPEP= INT 
{(L-DHMPV2)r LET 
RVMPEP=2 +1 NT 
((A-DVMPJ/2) 

460 LET PHCP-RHMPEP + 2: 

LET PVCP=RVMPEP+2 
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480 DIM A$(DVMC,DHMC,1) 

490 IF K<>0 AND (X$-"M >f OR 
X$= rr D') THEN LOAD *"M" ; 
1;N$ DATA A$() 

495 IF K<>0 AND X$-”C” 

THEN LOAD N$ DATA A$() 
500 GO SUB 560 
520 GO SUB 720: GO SUB 930: 

GO SUB 1190 
540 GO TO 510 
550 REM 

560 REM MASCARA 
CRUCIGRAMA 
570 REM 

580 CLS : PRINT AT 

{RVMPEP - l) f S; 11 PGSIC ION 
DEL CURSOR” 

590 IF DHMCXL-1V2 OR 
DVMC>[A- 1J/2 THEN 
PRINT AT RVMPEP, 2; "l/"i 
DVMC;TAB 12;"F=”;TAB 
18;"C= r ';TAB 27;"1/ M ; 
DHMC 

600 IF DHMC<-[L-l)/2 OR 
DVMC<XA-l)/2 THEN 
PRINT AT RVMPEP, 12;"F= 
C- M 

610 LET PX- 

((RHMPEP+irB+4): LET P 
Y=192-((RVMPEP+4)*8- 
4) 

620 FOR 1 = 0 TO DVMF-1 STEP 
2: PLOT PX f PY— 1*8: DRAW 
[[DHMP— 1 )*8j,0: NEXT I 
630 FOR 1 = 0 TO DHMP- 1 STEP 
2: PLOT FX + P8.PY: DRAW 
0, — [{DVMP— 1)*8): NEXT I 
640 REM 

720 REM PRESENTACIGN EN 
PANTALLA (15 x 9 
CUADROS CRUCIGRAMA 
ORIGINAL 
730 REM 

740 FOR V=1 TO (DVMP-l)/2: 
FOR H= 1 TO (DHMP-1V2: 
PRINT AT {RVMPEP + V*2h( 
RHMPEP+H*2) ;A${RVMP 
EMC + V r RHMPEMC + H)i N 
EXT H :N EXT V 
750 RETURN 
760 REM 

810 REM INFORMACION 


CURSOR 
820 REM 

830 PRINT AT RVMPEP,14; 
BRIGHT 0;” ”;AT RVMPEP, 
14; BRIGHT 0;FVCEMC 
840 PRINT AT RVMPEP,20; 
BRIGHT 0 ;" ”;AT RVMPEP, 
20; BRIGHT 0;PHCEMC 
850 RETURN 
860 REM 

870 REM CALCULO CAS IL LA 
ACTIVA 
880 REM 

890 LET PHCEMC=(PHCP-RH 
MPEP)/2 + RHMPEMC 
900 LET 

PVCE M C = [PVCP - RVM PEP)/ 
2+RVMPEMC 
910 RETURN 
920 REM 

930 REM MOVIMIENTO DEL 
CURSOR 
940 REM 

945 LET !H=0: LET IV-0 
950 LET V—PVCP: LET H-PHCP: 

GO SUB 870: GO SUB 810 
960 PRINT AT PVCP.PHCP; 
PLASH 1 ;A$(PVCEMC, 
PHCEMC) 

970 LET CE= I NKEY£: IF = 
.THEN GOTO 970 
990 IF CODE C$= II THEN LET 
PVCP=(PVCP-2): LET 
IH =0; LET IV = —2: IF 
PVCP<=(RVMPEP+1} THEN 
LET C$=CHR$ (39): GO TO 
1025 

1000 IF CODE C$ = 10 THEN LET 
PVCFXPVCF+2): LET 
I H=0: LET IV=2: IF PVCP 
>{ RVMPEP — 1 + DVM P 
)THEN LET C$=CHRS 
(38): GO TO 1025 
1010 IF CODE C$ = B THEN LET 
PHCP=(PHCP~2): LET 
IH = —2: LET IV—0: IF 
PHCP<={RHMPEP+1) 
THEN LET CS-CHRS (37): 
GOTO 1025 

1020 IF CODE C$=9 THEN LET 
PHCP = £PHCP+2): LET 
IH = 2: LET fV=0: IF PVCP 


XRHMPEP-l+DHMP) T 
HEN LET C$ = CHR$ (40 
):GO TO 1025 

1022 IF CODE C$-94 THEN GO 
SUB 2000 

1025 IF CODE C$=37 OR CODE 
C$ = 3S OR CODE CS=39 
OR CODE C$ = 40 OR CODE 
C$ = 94 THEN RETURN 
1030 LET 

PHCEMC=(H - R H M PEP)/ 
2+RHMPEMC 
1040 LET 

PVCEMCXV-RVMPEP)/ 
2+RVMPEMC 

1050 IF CODE 05-35 THEN LET 
IV = 0 : LET IH = 0 
1070 IF CODE C$=32 OR CODE 
C$>40 THEN LET 
A$fPVCEMC, 

PHCEMC)=C$: GO TO 
1090 

1080 GO TO 1140 
1090 LET PVCP=PVCP+IV: LET 
PHCP=PHCP+fH 
1100 IF PVCP< = (RVMPEP+1) 
THEN LET C$=CHR$ 39: 

GO TO 1160 
1110 IF 

PVCPX RVMPEP- 1-F DVMP) 
THEN LET C$-CHR$ 38: 

GO TO 1160 

1120 IF PHCP<=(RHMPEP+1) 
THEN LET C$=CHR$ 37: 

GO TO 1160 
1130 IF 

PHCPXRHMPEP- 1 + DHMP) 
THEN LET C$=CHR$ 40: 

GO TO 1160 

1140 PRINT AT V,HjA${PVCEMC 1 
PHCEMC) 

1150 GO SUB 810 
1160 IF CODE C$=37 OR CODE 
C$=38 OR CODE C$ = 39 
OR CODE CS-40 THEN 
RETURN 

1170 GO TO 950 
1210 LET DV=0: LET DH = 0 
1220 IF CODE C$=39 AND 
RVMPEM05 THEN LET 
DV=-5 

1230 IF CODE C$=39 AND 
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Aplicaciones 


1500 REM 

2000 REM GRABACJON 

2001 REM 

2005 LET N(1)=DHMC: LET 
N(2] = DVMC 

2010 INPUT PAPER 7; BRIGHT 

lj iNK l;"NOMBRE? ";N$: 
IF THEN GOTO 

2010 

2011 IFLEN N$>8 THEN PRINT 
#0; PAPER 1; INK 7; 
BRIGHT 1; FLASH 1; 
M NOMBR£ MUY LARGO 
{Max. STL PAUSE 0: GO TO 
2010 

2017 PRINT #0: PAPER 7: 
BRIGHT 1; INK 1; 
"CASSETTE.'DISCO/ 
MICRODRIVE? C/D/M" 

2019 LET = INKEYS: EF 

X$ = "C" OR X$=”D" OR 
X$="M" THEN GO TO 2021 

2020 GO TO 2019 

2021 IF X3j- r 'D" OR X$ = "M" 
THEN SAVE 

N$+".D" DATA NO: SAVE 
*"mM;N$ DATA A$() 

2030 IF X$="C ,f THEN SAVE 
N$ + ".D" DATA NO: SAVE 
N$ DATA A$0 

2031 INPUT PAPER 7; BRIGHT 
1; INK 1;"CASSETTE/ 
DISCO/MICRODR. C/D/M" 

2035 CLS : GO SUB 560: 

RETURN 

9998 STOP 

9999 SAVE T "M’\l;TCRUCl" 


RVMPEMC<-5 THEN LET 
DV-—RVMPEMC 

1240 IF CODE C$=33 AND {DV 
MC-(RVMPEMC + CDVMP 
-U/2H> = 5 THEN LET 
DV= 5 

1250 IF CODE C$-38 AND (DV 
MC —ERVMPEMC + (DVMP 
-l)/2))<5 THEN LET D 
V = DVMC-fRVMPEMC + {D 
VMP-D/2) 

1260 IF CODE C$=37 AND 

RHMPEMOB THEN LET 
DH = “8 

1270 IF CODE C$~37 AND 

RHMPEMCC—8 THEN LET 
DH=-RHMPEMC 

1280 IF CODE C$=40 AND (OH 
MC —(R H M PEMC + fDHM P 


—8 THEN LET 

DH-8 

1290 IF CODE C$ = 40 AND (DH 
MC-{RHWIPEMC + (DH MR 
-1)/2))<8 THEN LET D 
H-DHMCHRHMPEMC + 1 
DHMP-D/2) 

1310 LET RHJVIPEIVIC=RHMPE 
MC + DH: LET RVMPEMC 
= RVMPEMC+ DV 
1330 IF CODE C$-39 THEN LEI 
PVCP = RVMPEP+2 
1340 IF CODE C$=38 THEN LET 
PVCP = DVMP + RVMPEP— 1 
1350 IF CODE C$=37 THEN LET 
PHCP-RHMPEP-l-2 
1360 IF CODE C$=40 THEN LET 
PHCP=DHMP+RHMPEP-1 
1370 GO SUB 870: RETURN 


FE DE ERRATAS 

For error, en el anterior numero de INPUT, algunas de la lineas de programs pub Head as figuraban con incorrectiones. 
Se trata de las siguientes lineas del programa REDEFINE TUS GRAFICOS DE PANTALLA; la primera linea 300 debe 

suprimirse, y an so lugar escribrr las lineas: 


210 FOR C-162T0 174 
220 PLOT INK 2:W,C 

Ademas, en la segunda imea 300 falia ur» punto y coma entre las segundas comillas y la sentencia AT. 
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LA MAQUINA 
TRAGAPERRAS 


■ 

FRUTAS MEGANICAS 

■ 

SAGA EL MAXIMO PARTI DO 

DE LOS GRAFICOS 

■ 

GRAFICOS DE FRUTAS 

■ 

CREACION DE LAS RULETAS 


Yen con nosotro* a probar suerte en 
Las Vegas con ell juego dc Ja imiquina de 
fr-ulus C|Ut te qfrece INPUT. No tc-ngas 
itiieclo; nuesTra tragaperras no te va- 
ciara I os hol'd 11 ns. 

I .-a gran mayor m de bingos v sa lores 
dc j ue go hum introducido, en Uigar dc 
las antiguas m Aquinas de factum 
mec&nica* oiras modemaS 
dc frutas electrdnicas, con 
una pant a] la dc television 
que muestra 
las ruletas. 

Este 

articulo 
sc divide 
en das 
partes* y 
trata de 

ensenarte edmo 
puedes imi tar 
una de estas innov adorns mtiquinas 
con la ayuda dc in micro. 

El juego esta dot ado de U>dos los 
componentes que puedes cnoomrar en 
una iniiquina dc frutas de verdad 
—avancc, apuesta, movimiento, etce¬ 
tera— v se dan grSficos aniinados para 
simular Las ruletas inccanicas. 

El dispone: de urn program a como 
£ste para jugar tc va a salvar de que 
un jugador avaricioso tc desplume, 
aunque tampoco te vas a hacer rko 
con el. No olvides, como stempre, 
guard a r (SAVE) esta parte del pro- 
grama que comp]Claris con la se- 
gunda. Para haCCr funcionar (RUN) cl 
programs habeas de esperar a tencrlo 
compEcto, antique ya puedes probar Ea 
visualization dc algunos gr&ficos fun- 
dame males. 


INICIAUZACIOM 

40 POKE 5328^0:POKE 53281, 
0iA$= 1J ESPERAR U":BS=' J N 
MOMENTO 

":C$-”fCTRL+2I[CTRLH-8] 




[COMIU + 3] 
iCTRL+5][C0MM, -h 1] 
fCTRL+3] 
fCOMM + 2]” 

45 PRINT "tSHIFT+CLR/HQMEH 
9*CRSR ABAJO]”:FOR A-i 
TO 7:E0R 6 = 1 TO 10:PRIMT 
N fCRSR ARRIBA]"i 
Ml DS(C$,A P DfSPCtB); 

A$ ; 

50 PR I NT TAB(30“ NEXT 
BiPRINT :NEXT A 
55 POKE 52,48;P0KE 56, 
48:CLR:P0KE 56334* 
FEEK{56334) AND 254:P0KE 
1,PEEK(1) 

AND 251 

60 FOR A=0 TO 1023:POKE 
A+12288, 

PE EK[A+53248): NEXT 
iPOKE l.PEEK(l) 

OR 4 

65 POKE 56334,PEEK 
(56334) OR bPOKE 
53280,8: 

A=0 TO 
655: 

READ B: 

POKE 
12288 
+A,B; 

NEXT A 
10000 DATA 

255,213* 

253,253,253,253,213, 
255 

10005 DATA 255,127,127, 

127.127.127.87.255 
10010 DATA 255,213,255, 

213.213.215.213.255 
10015 DATA 255,87,215.87, 

87.255.87.255 
10020 DATA 255,213,255, 

253.253.255.213.255 
10025 DATA 255,87,215,87, 


10040 


10055 



10065 

10070 

10075 

10080 

10085 


10130 


87,215,87,255 
DATA 255,215,215, 
213,213*255,255,255 
DATA 255*215,215,37, 
87,215,215*255 


DATA 255*213,215, 

213.213,255,213,255 

DATA 255,87,255,87, 

87*215,87,255 

DATA 255,204,0,240, 

252,204,204,240 

DATA 255,204,0,48, 

252*204,204,252 

DATA £52,204.0,240, 

252,204,204,240 

DATA 204,204,252, 

240,0,204,255,0 

DATA 204,204,204, 

204,0,204,255,0 

DATA 204,204,204, 

204,0,204,252,0 

DATA 0,0,0,3,3,15,15,0 

DATA 48,252,252,255, 

255,255,255,0 

DATA 0,0,0,0,0,192, 

192,0 

DATA 15,15,3,0,0, 

0 , 0,0 

DATA 255,255,255, 

252,48,63,15,0 

DATA 192,192,0,0,0,0, 



0,0 

DATA 0,3,15,15,15,15, 
15,15 

DATA 0,255,243,252, 
252,252,252,252 
DATA 0,0,192,192, 
192,192,192 
DATA 
15,15, 

15,3, 

3,0. 

0,0 
DATA 
252, 
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910 PRJNT PAPER 6; INK 4-AT 
1,4;" - ; AT 4,4; rp 
920 PRINT PAPER 6; INK 2;AT 
1,4;" ";AT 5,4;" INK 0;” 
930 FOR i = 6 TO 14: FOR j = 8 
TO 23 STEP 5: PRJNT INK 
0;AT i,j;" 11 : NEXT j: NEXT i 
940 FOR i=8 TO 23: PRINT AT 
15,1; INK 0;" r M ; NEXT i 
950 FOR 1=6 TO 21: PRINT 

PAPER 6;AT 1,0;.” ";AT 1,24; 

IJ a p 

NEXT I 

960 FOR 1 = 16 TO 21: PRINT 
PAPER 6;AT 1,8;" pp : 

NEXT [ 

970 PRINT INK 1; PAPER 3;AT 
2,2;’ P GANG";AT 2.27; 
p 'GANQ' , fAT 3,2;” M ;AT3 f 
27;" 

980 PRINT INK 1; PAPER S;AT 
4,3; PF 10";AT 4,28;”100 ,P ;AT 
5,3;"20";AT 8,3;"50";AT 7. 
25;"JACKPOT";AT 3,25;” pp 
990 PRINT INK 1; PAPER 3;AT 
20,4; 11 PR ESI ONA SPACE 
PARA GIRAR";AT 21,4;" 0 
TECLAS DE PARAR 0 
MOVER" 

1000 PRINT AT 17.7;" 1 2 

3 ”;AT 16,9;" 

1010 PRINT AT 18,7;" 4 = 1&2 
5=2&3 6 = 1&3”;AT 19,7; 
INK 7; PAPER 2;"TECLAS 
PARAR U6 I! 

1020 RETURN 


La linea 10 salla a la subnitina de la 
linca 860, ]a cm a I sc encarga de dibujar 
la miquina dc frutas. Tod as las ins- 
trued ones neccsarias para el jugador 
se encucntran visualizadas en la parte 
frontal de La m£iquma. 

La linea 100 cstablcce Ids UDG me¬ 
dia nte Ja leetura (READ) de Jos 
DATA de las line as 20 a 90. Los UDG 
aparecen, un.a vez establecidos, en las 
line as 120 a 170 cumo DATA promos 
para Jar marcha a las rulctas; a$, b$ y 
cS son las tres rgfctas. y c.1 orden dc 
las frgtas cn cad a Lina de el las se de- 
termina segun e! orden cn quo esiar 
dispuestos los DATA, 


VA DE RULETAS 


180 GO SUB 1030 
1030 PRINT INK 0 ; AT 5,0; 
A$(4): FOR X = 0 TO 3 
STEP 2: PRINT INK 0;AT 
7,X;A${4);" ,r : NEXT Xr 
FOR X=0 TO 5 STEP 2: 
PRINT INK 0;AT 9,X; 

A5(4)r NEXT X: FOR X=0 
TO 5 STEP 2: PRINT AT 
10 P X;A$(1); PP pp : NEXT X 
1040 PRINT INK 1;AT 11,0; 

C$(23;C$[2J;C$(2); INK 0; 
AT 12,0;B$(1);B$(1};B$[1) 
1050 PRJNT INK 3;AT 5,26; 
C$(1);C${1);C$U); INK 4; 
AT 6,26;C${3);C$f3); 
C$(3J; INK 5;AT 9,26; 
C$(4);C$(4);C$[4) 

1060 PRINT AT 7,10;A$(U;AT 


10, 10;A?(2); AT 13,10; 
A${3) 

1070 PRINT AT 7,15;B$a);AT 
10,15;B$(2hAT 13,15; 
B$f3) 

1080 PRINT AT 7,20;C$(1};AT 
1 0,20;C$(2);AT 13,20; 
CSC3) 

1090 PRINT AT 16,26; INK 2; 
PAPER 6;”MOVER'’;AT 17, 
26;"TECLAS M ;AT 15,25; 
"Q-W-E P";AT 18,25? 
"A^S-D 0" 

1100 PRINT INK 0; PAPER 7;AT 
12 r 25; 1P ";AT 13,25;" "; 
AT 13,31;" Pl ;AT 14,25; pp 
"; AT 13,26; INK 2;" PP 
1110 PRINT PAPER 6; INK 0; 
INVERSE I ;AT 15,0; 
"TOTAL"; INVERSE 0;AT 
18,0;"p pp ;AT 17,1; PAPER 
1\ BRIGHT 1;" ”;AT 18,1; 
TOTAL 

1120 PRINT #l;AT0 d 0;" 
COMIENZAS CON 100 
pts.” 

1130 PAUSE 0 

1140 PRINT #1 : AT 0,0;" 

1150 RETURN 

La subrutina que se inida en la tinea 
] 030 di seiia las rule Las en sus positio¬ 
ner inieiales y com pie La algo nos de J os 
detallcs de su visualizacitin. Se Jc in- 
dica. ad etnas, at jugador que co¬ 
rn ienza con un ddlar. y que cada 
vuclta cuesta diez centavos. 


136 INPUT duegos 



























mmm 


FRUTAS 
Y COCO 


■ COMPLETA TU MAQUINA _ LINEAS G A NADORAS 


-—“- 

DE FRUTAS 

■ 

AJUSTE DEL CREDITO 

■ 

DAR VUELTAS 

■ 

PARPADEO DE LOS AVANCES, 


A LAS RULETAS 


PARADAS Y APUESTAS 

■ 

COM PRO BAG ION DE LAS 

■ 

LOS EFECTOS SONOROS 


Libera la rukta de hi tragapcrras \ 
trata de constguir id E Frutero con esta se- 
jjuiicia parte dd programs, Se cobra 20 
veces mas que seapuesta- 

jY a versi en esta ocasio a fa dkisa For- 
tuna st pone de tu ladoy putties, per fill* 
reali/.ar lu smhdo de hater quebrar la 
bancaE ;Animci ysuerte! 

En esla segunda parte del artlculo 
que hemos dedieado a la miquina de 
fret as, se comp-feta el programs y dc- 


jamos la mfiquina a punto para em- 
pc^ar cl juego. 

CONTRGLENSE, SENORES 


190 LET HGLD=0 
200 LET TOTAL-TOTAL-10? GO 
SUB 750: IF TOTAL<0 
THEN GOTO 770: LET 
NUDGE = 0: PRINT AT 13, 
26; INK 2 ;" 


210 IF HFLAG = 0 THEN LET 
HOLD-0 

220 FOR 1 = 1 TO 3: FOR J = 1 
TO 12: BEEP .001, 

60 

230 IF HOLD=0 THEN PRINT AT 
7,10;A$(J);AT 7,15;B$(J); 
AT 7,20;C$(J);AT 10,10; 
A$(J + 1);AT 10,15;B$(J + 1); 
AT 10.20;C$(J + 1);AT 13, 
10; A$(J + 2);AT 13,15; 
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HUE CIRCUS AGTS 


11 AW TO MieMlBKT 


ROOMS AVAILABLE 

ftyr/Y. ttnr7%fifai< 

AIL HEW Mf&WASh 

CUlS ft’jf' F1CM1BITS NU« m 


LIVE TABLE GAMES 

5 4 CRAPS 50 * BLACKJACK 

PENNY SLOTS 


39* HGTDOG 


<•<■«!• J 


«£ HAMBURGER 
GJFTS PACKAGE UtUfQ&S 


FULL RANCH 






31|3 IF HOLD<>2 AMD 

HOLD<>5 AND HOLD<>4 
THEM LET K=INT 
(RND*12); IF K = 0 THEM 
LET K=1 

320 IF HOLD<>3 AND 

HOLD<>5 AND HOLD<>6 
THEN LET L= INT 
(RND*12): IF L=0 THEN 
LET L-1 

330 LET HOLD=0 
340 PRINT AT 7,10;A$(M);AT 7, 
15;G$(K);AT 7,20;C$(L);AT 
10,10; ASCM -hi); AT 10,15; 
B$(K+1);AT 10,20; 
C$(L+1);AT 13,10; 

A$fM + 2); AT 13,15; 
B$(K-f2);AT 13,20; 

C${L+2) 

La lines J 9 Q pone a cero la variable 
de parada (HOLD). La rutina aim- 
prueba el valor de HOLD (deiermi- 
nada por la ted it pulsada por el juga- 
dor) y pone en movim lento las rule las 
I i be rad as. 

Una vex tjue las rulctas ban dado 
viieltas > HOLD vuelvc a valer cero en 
]a linea 330 (los bo tones del hold de- 
saparecen) y las ruletas quedan visua- 
li/adas (PRINT) cn posteidn de re- 
poso en la linea 340. 


B$(J + 2);AT 13,20;C$fJ + 2): 
NEXT J: 

NEXT I 

240 IF H0LD=1 THEN PRINT AT 
7,15;B$[J);AT 7,20;C$U); 
AT L0,15;B$(J + 1);AT 10, 
20;C$(J + 1); AT 13,15; 

B${J + 2);AT 13,20;C$U+2); 
NEXT J: 

NEXT I 

250 IF HOLD =4 THEN PRINT AT 
7,20;A$(J);AT 10,20;B$U); 
AT 13,20;C$(J): NEXT J; 
NEXT I 

260 IF HOLD-6 THEN PRINT AT 
7,15;B${J);AT 10,15; 

B$(J +1); AT 13,15; 

B$fJ + 2): NEXT J: 

NEXT I 

270 IF H0LD=2 THEN PRINT AT 
7,10;A$U);AT 7,20;C$(J); 


AT 10,10;A$(J+ I); AT 10, 
20;C$(J + 1);AT 13,10; 

A$(J + 2);AT 13,20;C$( J+2); 
NEXT J : NEXT I 

280 IF H0LD=5 THEN PRINT AT 
7,10;A$(JJ;AT 10,10; 
A$(J+1);AT 13,10; A$(J + 2); 
NEXT J: 

NEXT f 

290 IF HOLD = 3 THEN PRINT AT 
7,10;A$(J);AT 7,1 5;6$(J); 
AT 10,10;A$(J + 1);AT 10, 
15;BE(J'+ lJrAT 13,10;A$ 
(J+2);AT 13,15;B$(J+2h 
NEXT J; 

NEXT I 

300 IF HOLDol AND 

H0LDO4 AND H0LD<>6 
THEN LET M= INT 
ERND*12): IF M=0 THEN 
LET M = 1 


FRUTAS DEL AZAR 


350 GO SUB 600 
600 LET 

T$-A${M)+B$(K)+C|(U 
610 LET 

M$=A${M + 1) + B$(K + 1H 
C$tL+l) 

620 LET 

L$—A$(M+2)+B$[K+2) 
+C$(L+2) 

630 IF TO 2)-C$( 1) AND 
M$( TO 2)—M$(3 TO 4.) AND 
M$( TO 2) = M$(5 TO ) THEN 
LET TOTAL=TOTAL+100: 
GO SUB 750: GO SUB 760: 
GO TO 380 

640 IF M${ TO 2)=C$(3) AND 
MS( TO 2)=M${3 TO 4) AND 
M$( TO 2}=M?(5 TO ) THEN 
LET TOTAL =TQTAL+100: 
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60 SUB 750: GO SUB 760: 
GO TO 380 

650 IF M$< TO 2)=Ct(9) AND 
M$( TO 2)- M$(3 TO 4) AND 
M$( TO 2) = M$(5 TO ) THEN 
LET TOTAL=TOTAL+50: GO 
SUB 750: GO SUB 760: GO 


TO 380 

660 IF M$( TO 2)=C$(2) AND 
MS( TO 2)=M$(3 TO 4) AND 
M$( TO 2) = M$C5 TO ) THEN 
LET TOTAL=TOTAL+50: GO 
SUB 750: GO SUB 760: GO 
TO 380 


670 IF M$( TO 2}=C$(6) AND 
MS( TO 2>=M?<3 TO 44 AND 
M$( TO 2>=M$<5 TO ) THEN 
LETTOTAL=TOTAL+50: GO 
SUB 750: GO SUB 760: GO 
TO 380 

680 IF M$( TO 2)=C$(5) AND 
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M$( TO 2) = M$(3 TO 4) AND 
m( TO 2)-M$(5 TO } THEN 
LET TGTAL=TOTAL + 50: GO 
SUB 750: GO SUB 760; GO 
TO 380 

690 IF M$( TO 2)-C$(4) AND 
M${ TO 2)=M$(3 TO 4) AND 
M${ TO 2)=M$(5 TO )THEN 
LET TOTAL=TOTAL+500: 

GO TO 820 

700 IF M$( TO 2)-C$(5) AND 
M$( TO 2)-M${3 TO 4) AND 
M${5 TO )<>C$(5) THEN 
LET TOTAL-TOTAL+20:GO 
SUB 750; GO SUB 760; GO 
TO 380 

710 IF M$f TO 2) = C$(5} AND 
m(3 TO 4)<>C$C5) THEN 
LET TOTAL-TQTAL+10: GO 
SUB 750; GO SUB 760; GO 
TO 380 

720 IF M${ TO 2)=C3{4) AND 
M$[ TO 2) = M$(3 TO 4) AND 
TO 2)<>M$(5 TO ) 
THEN GO SUB 760; GO TO 
380 

730 IF M$f TO 2}-C$[4) AND 
M$( TO 2)<>M$(3 TO 4) 
THEN GO SUB 760; GOTO 
380 

740 IF M$(3 TO 4)=C$(4} AND 
M$[3 TO 4)<>M$(5 TO ) 
THEN GO SUB 760; GO TO 
380 

750 LET DD-INT (TOTAU100): 
LET CC=TQTAL—£DO*100): 
PRINT INK 2; PAPER 6;AT 
17,0;"P ";AT l8 t 0; r, P JJ f 
PAPER 7; BRIGHT 1;AT 17, 
It" ";DD;AT IB.I;" ";CC: 
RETURN 

760 LET HFLAG-0: LET 

HOLD-0; LET NUDGE = 0; 
FOR \ = 9 TO 19 STEP 5; 
PRINT AT 16,1; INK 2; 

" NEXT I; PRINT AT 
13,26; INK 2;” 11 : 

RETURN 

La Itnca 350 salt a a la subruiina que 

comieaza en la linea600. ta cual se en- 

carga de poncr las trcs filas visibles en 

las ruIctus dentro de Ires variables de 


cadcna, T$, MS y L$. La variable del 
medio, MS, es la Imea a partir de la 
cual se calcula el resullado cn Ea sub- 
rut ina que sc inicia cu la Imea 630. La 
rutina comprueba si cxislcn tineas ga 
nacforas v soma las ganancias cn cl to¬ 
tal del jugador. 


Y EL wNUDGEj? QUE RUGE 


26; INK 2,” "s BEEP .1, 
30: GO SUB 600: GO TO 
380 

430 IF l$="D" AND NUDGE—1 
THEN GO SUB 540; LET 
NUDGE-0: PRINT AT 13, 
26; INK 2j” "t BEEP .1, 
30: GO SUB 600: LET 


360 


370 


380 

390 


410 


420 



IF M<7 OR K-L OR L>2 
THEN LET NUDGE-1: 

PRINT BRIGHT 1; PAPER 7; 
INK 2;AT 13,26; 

"MOVER" 

LET HFLAG-INT (RND+.5): 
IF HFLAG-1 THEN FOR 1-9 
TO 19 STEP 5: PRINT AT 
16,1; INK 6; BRIGHT 1; 
"ALTO”: 

NEXT } 

LET l$-INKEY$: IF 1$ = ”" 
THEN GO TO 380 
EF l$=" ,r THEN FOR 1=9 
TO 19 STEP 5; PRINT INK 
2;AT 16, l; Ff NEXT I: 

GO TO 200 

IF l$-”E" AND NUDGE-1 
THEN GO SUB 520: LET 
NUDGE = 0; PRINT AT 13, 
26; INK 2;“ BEEP .1. 

30: GO SUB 600: LET 
RN-INT (RND*10); IF tNT 
(RN/2) = RN/2 AND 
HFLAGol THEN LET 
NUDGE-1: PRINT AT 13, 

26; INK 7- BRIGHT 1; 

"MOVER"; GO TO 
380 

IF |$= M Q" AND NUDGE-1 
THEN GO SUB 480: LET 
NUDGE=0: PRINT AT 13, 

26; INK 2;” "J BEEP .1, 
30: GO SUB 600; LET 
RN-INT (RNDM0): IF I NT 
(RN/2)-RN/2 AND RN<3 
THEN LET NUDGE-1: 

PRINT AT 13,26; INK 7; 
BRIGHT 1 r ,J MOVER ,J : GO TO 
380 

IF l$-”VT AND NUDGE= 1 
THEN GO SUB 500; LET 
NUDGE-0; PRINT AT 13, 


•I 
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RN-INT (RNO* 10>2 IF INI 
{RN/2)<>RN/2 THEN LET 
NUDGE=1; PRINT AT 13, 
26; INK 7i BRIGHT 1; 
"MOVER’’: GO TO 
380 

440 IF l$ = "S" AND NUDGE-1 
THEN GO SUB 580: LET 


NUDGE-0: PRINT AT 13, 
26] INK 2; rr BEEP . 1, 
30: GO SUB 600: LET 
RN-INT CRND*10): IF FNT 
(RN/2J—RN/2 THEN LET 
NUDGE-1: PRINT AT 13, 
26; INK 7; BRIGHT 1] 
"MOVER”: GO TO 


380 

450 IF l$ = "A” AND NUDGE-1 
THEN GO SUB 560: LET 
NUDGE-0: PRINT AT 13, 
26; INK 2; ,r BEEP . 1, 
30: GO SUB 600: LET 
RN-INT (RND* 10); IF INT 
(RN/2)oRN/2 AND RN>6 
THEN LET NUDGE-1: 
PRINT AT 13,26; INK 7; 
BRIGHT 1 ;"MOVER”: GO TO 
380 

460 IF HFLAG-1 AND j$="l fr 
OR I$="2" OR IS-"3" OR 
l$="4" OR l$ = "5" OR 
l$="6” THEN LET 
HOLD=VAL IS: FOR 1 = 9 TO 
19 STEP 5: PRINT AT 16,1; 
INK 2;” NEXT I: GO 
TO 200 

470 GO TO 380 
480 LET M-M + l: IF M>12 
THEN LET M= 

M- 12 

490 PRINT AT 7,10;A$(M):AT 
10,10;A$((V1 + UfAT 13,10; 
A$(M+2): 

RETURN 

500 LET K— K+1: IF K>12 
THEN LET K = 

K—12 

510 PRINT AT 7 r 15;B${K);AT 
10,15, B$(K+1);AT 13,15 s 
BSIK + 2}: 

RETURN 

520 LET L=L+1; fF L>12 THEN 
LET L=L-12 

530 PRINT AT 7 1 20sC$(L)sAT 
10,20;C${L+i);AT 13,20; 
6$(L+2}: 

RETURN 

540 LET L-L-l: IF L<1 THEN 
LET L=L+12 

550 PRINT AT 7,20;C$(L)sAT 
10.20;C$(L+1);AT 13,20; 
B$(L +■ 2): 

RETURN 

560 LET M-M-l: IF M<1 
THEN LET M = 

M +12 

570 PRINT AT 7,10;A$(M);AT 
10,!0;A$(M+1);AT 13, 
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10;A$(M + 2): 

RETURN 

530 LET K=K-!i IF Kcl THEN 
LET K - K -h I£ 

590 PRINT AT 7,15;B${K),AT 
10,15;B$(K+ 1);AT 13,15; 
B${K+2): 

RETURN 

La rulina del NUDGE, CrtCargada 
del movimiento, es similar a la ruiiina 
del hold. 

Las ruletas ptieden movcrsc bacia 
arriha o hacia abajo, segdin to qtie 
hay a deddido cnirar el jugador pnr el 
tedttdo. Las instmcdones sobrc la te- 
cla que sc ha de pulsar se visual izan en 
la pantalla. A cada nudge sc genera un 
numero aleatoric que dclcrminara si 
se pucdc ofreeero no un nucvo nudge, 


JACKPOT: UN CUERNO DE LA 
ABUNDANC1A 


770 CLS ; PRINT AT 10,0 : " 
FINAL DEL JUEGO 
PERDISTE TODO EL 
DlNERO": BEEP 1, 

-20 

780 PRINT QU1ERES JUGAR 
OTRAVEZ? PRESIQNA 

¥¥ ig *¥ id Q Jd il pj rr dd 

790 IF INKEY$=THEN GO TO 
790 

800 LET I$-1NKEY$: IF 
OR l$='V THEN RUN 
810 STOP 

820 CLS : PRINT AT 10,0;" 
FELICIDADES GANASTE 
EL JACKPOT"; PRINT 
”ERES EL MAS RICO CON 
500 PTS”: FOR J=1 TO 3: 
FOR 1 = 1 TO 10: BEEP .01, 
5*1; NEXT I; 

NEXT J 

830 GO TO 780 

Estas rut in as son muy senctllas. La 
rutina que prcgunla si quieres inten- 
larlo de nuevo, contenida en las llneas 
770 a 810, cs II a mad a cuando al juga- 
dur ya no le queda dinem para apos- 
tar, 

La rutin a del jackpot t frutero de 
premie (lineas 820 y 830), da una 



ffQLD& HOLD 


START 


buena not id a a I jugador y le sum a 50 
ddlaresa su dinero total, antes de con¬ 
duit la jugEkda: la banca ha quebrado. 
A l jugador se le concede ahora una 
nucva oportunidad. 


144 INPUT Juegos 

















































































particip 0 



64 COLUMNAS EN BASIC 


Una de las limit aci ones del Spectrum, a la hora de utilizarlo para aplicaciones tipo procesadores de 
texto, bases de datos, etc., reside en qua solo dispone de 32 cotumnas, numero claramente insufidente 

para este tipo de necesidades. 


La siguiente rutina permite ubicar dos caracteres en el lugar que antes empleaba uno solo, O sea, 
sus dimensiones, con te nueva rutina, seran de 8 x 4 pixels, cuando antes eran de 8 x 8. 

Para conseguir esto, lo mas cdmodo cs imprimir un caracter en los cuatro prlmeros pixels y el otro 
caracter en los cuatro ultimos. Para ello tendremos que hacer dos nuevos [uegos do caracteres; el 
primero con las letras en tos cuatro ultimos pixels, y el segundo en los cuatro prtmeros (fig, 2a y 2b). 
Gaels juego consta de 96 caracteres (eddigos ASCII del 32 al 127, ambos inclusive) y cuenta con una 
iongitud de 768 bytes (96 x 8), almacenados a partir de la direction 63232 el primero y 64000 el 

segundo. 

Los pasos a seguir para imprimir dos caracteres en una son Eos siguientesr primero se imprime cl 
primer caracter (fig. 2a}; luego, en la misma lines y con OVER 1, para que no se borre lo 
anteriomnente escrito, se imprime et otro caracter (fig. 2b), y yd que los dos caracteres no coinciden 
entre si, quedar^n los dos impresos en un mismo caracter (fig. 2c). 

La funcion del programa 1 es cargar en memoria, a partir de la direccidn 63232, los dos nuevos 
juegos de caracteres, encargandose de grabar y verificar. SI se produce algun error al introducir los 

datos, el programs mostrara cual es ia li'nea erronea. 


1 REM PROGRAMA 1 


NUEVO JUEGO DE CARACTERES 
1(3 CLEAR 60000; LET rt=63232: RESTORE 
20 FOR i = 1000 TO 1095 
30 LET cont-0 
40 READaS 

50 FOR j=l TO LEN a$-l STEP 2 

50 LET d-16*(C0DE a$(j)-48-7*(a$(j)>"9 M ))+C0DE a$(j + l)-48-7*(a$(j + 1)>"9") 

70 POKE n,d: LET cont=cont+d: LET n=n+l: NEXT j 
80 READ a 

90 IF aocont THEM GO TO 200 
95 PRINT AT 0,0; rr L(NEA: ";i 
100 NEXTi 

110 PRINT AT 0,0;"OK. TODO CORRECTO";AT l.^Pulsa una tecla para grabar CHR$ SAVE 


NEW CHR$ SETXGDE 63232,1536 

120 CLS i PRINT AT 0,0;”PULSA UNA TECLA PARA VERIFICAR.": VERIFY " NEW CHR$ 
SETXODE 63232,1536 
130 PRINT AT 4,0;"GRABACION CORRECTA.” 

140 STOP 

ERROR DE DATA EN LA LINEA ”;i: PRINT "REVISA LAS DATAS": STOP 
" 00000000000000000002020202000200 ”, 10 
"000A0A00 000000000002000 2020 2 0200". 30 
"0E000C0A0A0A0A000E000A0E0E0A0A00M38 
"0 600 0C0 2 060A06000 004080000000000”, 54 
"00020404040402000004020202020400", 36 
"00000A040E040A00000004040E040400'',72 
"0000 000 00 2 0204000000 00000 E000000”, 22 


200 PRINT 

1000 DATA 

1001 DATA 

1002 DATA 

1003 DATA 

1004 DATA 

1005 DATA 

1006 DATA 


ll 


INPUT 39 
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1007 DATA 
1003 DATA 

1009 DATA 

1010 DATA 

1011 DATA 

1012 DATA 

1013 DATA 

1014 DATA 

1015 DATA 

1016 DATA 

1017 DATA 

1018 DATA 

1019 DATA 

1020 DATA 

1021 DATA 

1022 DATA 

1023 DATA 

1024 DATA 

1025 DATA 

1026 DATA 

1027 DATA 

1028 DATA 

1029 DATA 

1030 DATA 

1031 DATA 

1032 DATA 

1033 DATA 

1034 DATA 


”00000000 000 606000002 020404030800”, 40 
,, 00040A0E0A0A040000040C0404040E00” 1 94 
"00040A0204080E00000C020402020C00", 76 
"0008080A0E020200000E080C02020C00“,94 
"0006080C0A0A0400000E0 2 0404 080800“ ,90 
U 00040A040A0A040000040A0A06020C00",8S 
”00 000400000400000000000400040800“, 24 
”000002040804 02000000000 E000E0000”, 48 
”00000804020408000000020204040004”, 54 
’’040004040808060000040A0A0E0A0A00' 1 ,92 
■ P 000C0A0C0A0A0C000006080808080600'M10 
,, 000C0A0A0A0A0C00000E080C08080E00\128 
"000E080C08080800000608080A0A0600 , M06 
"000A0A0E0A0A0A00000E040404040E00", 108 
"000602020A0A0400000A0A0C0A0A0A00”, 96 
"0008080808080E0000090F0909090900" r 114 
"000A0E0E0A0A0A0000040A0A0A0A0400 dl , 116 
,, 000C0A0A0C08080000040A0A0A0E0600”, 114 
"000C0A0A0C0A0A0000060S0402020C00'\9S 
”000E040404040400000A 0 A0 A0 A0 A0400", 88 
"000A0A0A0A0404000009090D0D060600", 104 
"000A0A04040A0A00000A0A0A04040400 a ',90 
"000 E 020404080 £000006040404040600“, 74 
"00030804040202000006020202020600", 48 
"000 40 E04040404 0000 00000 00000000 F", 49 
"0003 040604040 F0000000C02060A0 600”, 72 
"000S080C0A0A0C000000060 808080600", 96 
"000202060ADA06000000040 A0C080600", 76 



40 INPUT 
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1035 DATA 

1036 DATA 

1037 DATA 

1038 DATA 

1039 DATA 

1040 DATA 

1041 DATA 

1042 DATA 

1043 DATA 

1044 DATA 

1045 DATA 

1046 DATA 

1047 DATA 

1048 DATA 

1049 DATA 

1050 DATA 

1051 DATA 

1052 DATA 

1053 DATA 

1054 DATA 

1055 DATA 

1056 DATA 

1057 DATA 

1058 DATA 

1059 DATA 

1060 DATA 

1061 DATA 

1062 DATA 

1063 DATA 

1064 DATA 

1065 DATA 

1066 DATA 

1067 DATA 

1068 DATA 

1069 DATA 

1070 DATA 

1071 DATA 

1072 DATA 

1073 DATA 

1074 DATA 

1075 DATA 

1076 DATA 

1077 DATA 

1078 DATA 

1079 DATA 

1080 DATA 

1081 DATA 

1082 DATA 

1083 DATA 

1084 DATA 

1085 DATA 


"0006080C08080800000p060A06020C00'\86 
"0008080C0A0A0A00000004000Cp40E00'\92 
"0 00 2 0002020A040000000A0A0C0A0A00", 72 
"00000808080806000 000090 F09090900”, 89 
"00000C0A0A0A0A000000040A0A0A0400" r 90 

"0000pC0ApA0C030S0000p60A0A060202",96 

"00000A0C080808000000060804020C00" r 78 
"00040E040404020000000A0A0A0A0400 r, f 76 
"00000A0A0A0404000000090D0D060600",85 
"00000A0A040A0A0000000A0A0602020C'\S6 
”00000E020408pE00p600040A0C0306pp".88 
”00040404040404000204000C04040E00", 64 
”060004 0A0A0A04000 2 04000A0A0A0400", 84 
”00000000000000000040404040004000", 320 
"00A0A0000p00000p0040004040404p00 , \640 
"00E000C0A0A0A000E000A0E0E0A0A000”, 2048 
"6000C0 2060 A0E000004 0800000000000", 992 
"00204040404020000080404040408000",832 
"0000A040E040A00000004040E0404000M152 
"000000002020400000000000E0000000", 352 
"000000 0000C0C 00000 202 04040808000” ,832 
"0040A0E0A0A040000040C0404040E000' 1 ,1504 
"0040A0 204080 E00000C0204 020 20C000'M216 
"0 08080A0E0 2 0200 000 E080C020A04000”, 1504 
"006080C0A0A0400000E0204 040808000”, 1440 
"0 040A040A0 A040000040A 0A0 60200000”, 1376 
"00008000008000000000004000408000", 512 
"0000204080402000000000E000E00000 n ,768 
"00008040204080000000202040400040", 864 
"400040408 030 60000040A0A0E0A0A000", 1472 
''00C0A0C0A0A0 00000060 808080806000", 1760 
la 00C0A0A0A0A0C00000E080C08080E000'\2O48 
' , 00E080C0S080800000608080A0A06000' r , 1696 
"00A0A0E0A0A0A00000E040404040E000", 1728 
"00602 020A0A0 400000A0A0C0A0A0A000", 1536 
”00 8080808080 E0000090F09090909 000”, 1824 
ri 00A0E0£0A0A0A0000040A0A0A0A04000 M , 1856 
”0000A0A0C080S0000040A0A0A0E0 6000", 1824 
■'00C0A0A0C0A0A0000060S0402020C000", 1568 
"00E040404040400000A0A0A0A0A04000", 1408 
"00A0A0A0A0404000009090D0D0606000”, 1664 
"00A0A04040A0A00000A0A0A040404000", 1440 
”00E020404080E0000060404040406000" r 1184 
”0080804 040 2020000000404040400 000", 1088 
"0040E0404040400000000000000000F0", 784 
"003040604040F0000000C02060A060P0 11 ,1152 
"008080C0A0A0C00000006080S0S06000", 1536 
"00202060A0A06000000040A0E0S06000M24S 
"0000603 0C0S080000000 60A06020C000", 1248 
"008080C0A0A0A00000004000C040E000M472 
"0020002020A040000000A0A0C0A0A000", 1152 
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1086 DATA ”0000808080806000000090F090909000",1424 

1087 DATA "0000C0A0A0A0A000000040A0A0A04000”, 1440 

1088 DATA "0000C0A0A0C08080000060A0A0602020M536 

1089 DATA "0000A0C08030S 0000000608040 20C000", 1248 

1090 DATA "004 0E04 040402 0000000A0A0A0A04000", 1216 

1091 DATA rr 0000A0A0A0404000000090D0D0606000 r M360 

1092 DATA r '0000A0A040A0A0000000A0A0602020C0 rr 1 1376 

1093 DATA ”0000E0204080E000600040A0C0806000", 1408 

1094 DATA ”00404040404040002040006040408000", 1024 

1095 DATA "600040A0A0A04000204000A0A0A04000M344 

El programa 2 se encarga de imprEmSr Jos caracteres; esta rutlna e$ la que tendr&s que poner en tus 
programas si quieres utilizer las 64 columnas, Para Hamar a esta rutma bacer GO SUB 9000, 

9000 REM PROGRAMA2 
P$: Texto 
x; Lsnea del texto 
y: Columma del texto 

9010 IF LEN p$/2olNT (LEW p$/2)THEM LET p$-p$ + 3 ’ ” 

9020 OVER 1: FOR f=l TO LEN p$ STEP 2 

9030 POKE 23607,249; PRINT AT K,y;p$(f>: POKE 23607,246: PRINT AT x,y ; p$(f+1) 

9040 LET y=y + 1 

9050 IF y>31 THEN LET y=0: LET x=x+l 
9060 NEXT f: OVER 0 
9070 POKE 23607,60 
9080 RETURN 

Hemos coristruido el nuevo juego de caracteres, induyendo los caracteres hispanicos, y para que 
piiedas realizar tu mismo los caracteres a lu gusto, tsmbien inclcimos un programa creader de 
caracteres (Programa 3), El programa es muy sencEHo, y con el podras crear caracteres, grabartos y 

cargarlos en cSnta. 

20 DEE FN a(a$) = [VAL a${l))*2*3+(VAL a$(2))*2'2 + (VAL a$(3))*2'l+(VAL a$[4))*2"0 
30 GO SUB 2000 
40 GO SUB 3000 

100 DIM l$(8,4h FOR x=I TO 8; LET l${x)“”0000": NEXT x 
110 DIM 1(8) 

120 GOTO 1500 

140 REM CREAR CARACTERES 

150 PAPER 4: BORDER 3: INK 0: CLS : POKE 23607,60 
155 GO SUB 1000 

160 DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175 

165 PRINT AT 13,2? PAPER 5;" ";AT 20,2s" FOR f = 13 TO 20: PRINT AT U; 

PAPER 5:" ";AT f,14; J1 NEXT f: PRINT PAPER 6;AT 14,2;"5*IZQUIERDA ";AT 15,2; 
"6*ABAJ0 AT 16 1 2;"7*ARRIBA ";AT 17,2;"8*DERECHA ,r ;AT 18,2; 

l3 9*B0RRAR ";AT 19 1 2; ,, 0*PINTAR 

170 PRINT PAPER 5;AT 18,18;”ESCRITO P0R";AT 19,18;”A. BURGALETA”: PRINT PAPER 2;AT 
17,18;" ";AT 20,18;" FOR f=17 TO 20: PRINT AT f, 17; PAPER 

2; 11 ";AT f,30;" NEXT f 

173 PRINT PAPER 1; INK 6;AT 14,17;”INPUT SINCLAIR" 

175 PLOT 72,143: DRAW 183,0: PLOT 72,143: DRAW 0,32: PR INT PAPER 2; INK 7;AT 1,10; 

"CREADQR DE CARACTERES U ;AT 2,10;" 64 CAR ACTE RES/LI N EA w 
180 PRINT AT 6,11; PAPER 3;"i* BORRAR REJILLA M ;AT 7Jl; rf 2# VER CARACTER ";AT 
8,11;"3# GUARDAR CARACTER";AT 9,ll; p, 4# MENU PRINCIPAL " 
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185 PRINT AT 5,11; PAPER 2;" ";AT 10,11;” FOR f=5 TO 

If): PRINT AT f, 1(3; PAPER 2;" ";AT 1,30;" NEXT f 
190 FOR f= 1 TO 8: LET l${f)="0000": NEXT f 
200 PAPER 7: INK 0 

210 LET x— 1: LET y—It LET *0=*: LET y0=y 

230 IF INKEY$= M 8" AND y<4 THEN LET y0=y: LET *0=x: LET y=y+l; GO TO 300 

240 IF INKEY$="5" AND y>l THEN LET y0=y : LET x0=x: LET y=y-l: GO TO 300 

250 IF INK£Y$="6" AND x<8 THEN LETX0-X: LET y0=y: LET x=x+l: GO TO 300 

260 IF INKEY$ = "7" AND x>l THEN LETx0=x: LET y0=y: LET X=X-1; GOTO 300 

270 IF INKEYS = "0" THEN GO TO 400 
280 IF 1NKEY|="9" THEN GO TO 450 

285 IF INKEY$ = ,, 1" THEN GO SUE 1010: FOR f= 1 TO 8: LET l$(f)="0000" ; NEXT f 

286 IF INKEY$ = ”3“ THEN GO TO 500 

287 IF INKEY$ = ”2” THEN GO TO 600 
290 IF INKEYS = ’’4" THEN GO TO 1500 
299 GO TO 220 

310 LET p=10*(l$[x0,y0)=”0”) 

315 GO TO 320 + p 

320 PRINT ATx0-F2,y0+2;" PRINT AT x +2,y+2;''*": GO TO 220 
330 PRINT AT x0 + 2,y0+2:"A": PRINT AT x-H2 r y+2;"*'': GO TO 220 
400 LET l$(x,y)="lBEEP .05,0: GO TO 220 
450 LET l$(x,y)="0”: BEEP .05,-10 
460 GO TO 220 

500 REM GUARDAR UN CARACTER 

505 BORDER 2; BEEP .05.10 

506 IF l$(x,y)="0” THEN LET r$="A" 

507 IF l$(x,y)=”l” THEN LET r$=” " 

508 .PRINT AT x+2,y+2 ; r$ 

510 INPUT "EN QUE CARACTER? ”;C$ 

520 LET C0=CODE c$*8+62976: LETcl = CODE =$*3+63744 
530 FOR 1 = 1 TO 8: LET l(f)=FN a(l$(f)): NEXT f 

540 FOR f=0 TO 7: POKE f+C0,l(f+l): NEXT f: FOR f=0 TO 7: POKE f+cl,l(f+1)* 16: NEXT f 

545 BEEP .05,10: BORDER 3: INPUT 

550 GO TO 220 

600 REM VER UN CARACTER 

605 BORDER 2: BEEP .05,10 

610 INPUT ”QU£ CARACTER? ";C$ 

620 POKE 23607.249: PRINT AT 11,1; PAPER 4; INK 4;C$ 

625 POKE 23607,60 

630 FOR f=l TO 8: LET l$(f)=”0000’ , ; NEXT f 

640 FOR f=l TO 8: FOR g = l TO 4 

650 IF POINT (7+g,88- f)=l THEN LET IKf,g)=”l” 

660 NEXT g: NEXT f 
670 GO 3U8 900 

675 BEEP .05,10: BORDER 3: INPUT "" 

680 GO TO 220 

900 REM DIBUJAR CARACTER EN REJILLA 
910 FOR 1=1 TO 3: FOR g=l TO 4 

920 IF IS(f,g) = "l“ THEN PRINT AT f+2,g+2; PAPER 0;" ” 

930 NEXT g: NEXT f 
940 RETURN 
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1000 REM OIBUJAR REJILLA 

1010 FOR f=3 TO 10: PRINT AT f,3 : PAPER 7; "AAAA": NEXT f 

1015 PRINT AT 2,2; INK 3;“ “;AT 11,2;" FOR f=3TO 10: PRINT AT 1,2; INK 3;” ";AT 

f,7;” NEXT f 
1030 RETURN 

1500 REM MENU PRINCIPAL 

1510 PAPER 4; INK 0: BORDER 4: CLS 

1520 PRINT AT 0,0; INVERSE 1;”CREADQR DE CARACTERES (54 CAR,)” 

1530 PRINT AT 3,9;"MENU PRINCIPAL’’:AT 4,9;" 

1540 PRINT AT 8,3;"1-CREAR CARACTERES”;AT 10,3;”2-VER TODDS LOS CARACTERES";AT 
12,3;”3-GRABAR CARACTERES";AT H,3;"4-CARGAR CARACTERES" 

1550 PRINT AT 20.0;"Pulsa opcioti"; FLASH 1;" " 

1570 IF INKEY$="1'' THEN GO TO 150 
1680 IF INKEY$ = ”2” THEN GO TO 1700 
1590 IF INKEY$=”3” THEN GO TO 1800 
1600 IF INKEY$=“4" THEN GO TO 1900 
1610 GOTO 1570 
1700 REM VER TODOS LOS CAR AC. 

1710 PAPER 5: INK 1: BORDER 5: CLS 
1715 POKE 23607,60 

1720 FOR (=0 TO 11 STEP 2: FOR g=I TO 16: PRINT AT1,g*2-2; INVERSE 1;CHR$ (32 + 0/ 
2)*16+g- 1);” NEXT g: NEXT f 

1730 POKE 23607,249: FOR f=l TO 12 STEP 2: FOR g=l TO 16: PRINT AT f,g*2-2;CHR$ 

(32 + ((f- 1 )/2)* 16+g-1): NEXT g: NEXT f 
1740 POKE 23607,60 

1750 PRINT AT 19,0; FLASH I;"PUISA UNA TECLA PARA IR AL MENU." 

1760 IF INKEY$<>“" THEN GO TO 1500 

1780 GO TO 1760 

1800 REM GRABAR CARACTERES 
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1810 CLS :■ INPUT “NGMBRE? ";n$ 

1820 IF LEN n$>10 THEN LET n$=n$( TO 10) 

1830 SAVE n$CQOE 63232,1536 

1840 PRINT *0;AT l^Tulsa una tecla para VERIFICAR" 

1850 VERIFY "’’CODE 63232,1536 
1860 GO TO 1500 
1900 REM CARGAR CARACTERES 
1910 INPUT "NOMBRE? " ; n$ 

1920 IF LEN n$>10 THEN LET n$ = n${ TO 10) 

1930 CLS : PRINT #0;AT 1,0r J "Puls-a una tecla para CARGAR rr 

1940 LOAD ""CODE 63232,1536 

1950 GO TO 1500 

2000 REM GDU 

2010 POKE USR ,r a" r 255 

2020 FOR x=USR V + l TO USR ”a" + 6: POKE x.129; NEXT x 
2030 POKE USR "a" + 7 p 255 
2040 RETURN 

3000 REM PASAR CARACTERES ROM A CARACTERES RAM 63232 TO 64768 
3010 CLS : PRINT AT 11,8; FLASH 1 jTESPERA UN PGCO" 

3030 FOR x=63232 TO 63999: POKE x,PEEK (x-47616): NEXT x 
3040 FOR x=64000 TO 64767: POKE x,PEEK (x-48384): NEXT x 
3045 CLS 
3050 RETURN 

Al poner en marcha el programs, aparecera en la pantalla este menu: 

1. CREAR CARACTERES 

2. VER TOO OS LOS CARACTERES 

3. GRABAR CARACTERES 
4 CARGAR CARACTERES 

Con la opci6n 1 ver^s en fa pantalla una rejilla de 8 por 4 pixels {o cuadros en esta ocasion), las 
teclas de manejo y otro menu con otras cuatro opclones. En, (a rejilla veras un cursor (un asterisco), 
que podris moverlo con las teclas del cursor (5, 6, 7 y 8). Para fljjar o dibujar un cuadro en la rejilla 
tendras que apretar la tecla 0; para borrarlo deberis pulsar la tecla 9, Como habras fefdo antes, aqur 

aparece otro menu, que te ofrece las siguientes opclones: 

h BORRAR REJILLA 

2. VER CARACTER 

3. GUARDAR CARACTER 

4. MENU PRINCIPAL 

Con la option 1, neturelmente, sc borrara la rejilla, sin mas, Con la option 2 lo primero que hara cs 
preguntar que caracter quleres ver, y despuis lo dibujara en la rejilla. Con la 3 se guards el caracter 
que este dibujado en la rejilla, en el nuevo juego de caracteres, Y la opcion 4 nos hace volver a I 

menu principal. 

Con la opcion 2 podras con templar todos los caracteres (solo veras un juego de estos, ya que el otro 
es igual pero con el caracter dibujado en los cuatro dltimos pixels). 

Con las opclones 3 y 4 podras grebar y cargar los nuevos juegos de caracteres creados por tL 
Ahora ya podras reallzar cosas mas series con tu Spectrum. Y no s6io jugar, aunque las 64 columnas 
tambien lo hacen atractlvo para crear jluegos de aventuras con mucho texto. 

Que lo dtsfrutes, 

Asier Burgaleta 
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BETA BASIC: EL SUPER 
BASIC 


■ 

PROGRAMA DE UTILIDADES 

m 

BETA BASIC LB: 

EL MAS POPULAR 

■ 

COMANDOS 

■ 

FIJNCIONES 


Seguraniente tu caso sera como el de 
L:j mayorra ck Ins csfnrzados usuariusdel 
Spectrum, ya pasas de tanlo juegoy pro¬ 
grams repetitive* y empiczas a dominar 
cl ordenadorcn pmillndidad. Tu Interes 
se centra en eseolrogrupode prograinas 
llnmados de u till dudes, entre los que sc 
eneueiilra este maginTico Bela Basic. 

F.l citado program a sc puede consi- 
dcrar como uno de los cscndalcs para 
tu bibliotecadel Spectrum, El Beta Ba¬ 
sic efi u [i ampEiador del BASIC dc lu 
ordenador que shade mas de 30 nue- 
vos com an tins v 20 fundoues a las ya 
presentes. Basicamciitc se puede decir 
que es un programs cn eddigo tufi- 
quina de unos 9.3 EC (la version 1.8) 
que Lina vez cargado cn memoria 
ofrece la posibilidad de uiilizar las 
nuevas facilidades, 

F.n lineas generales las ventajas que 
aporla el programa son: 

- A rivel de gr£ficos: Posibilidades dc 
rcllcnar dc color Ea flgura dcscada, 
movimlento de la pan tails en todas di- 
reccionqs, fad I id ad para posicionar 
texto con precision de un pixel... 

- Se ha potendado mucho eE editor. 
Lil movimicnlo del cursor en una linca 
ya no solo es horizontal, Ahora tam- 
bien nos podemos dssplnzar hada 
arriba % aba jo (imaginatc esa «mcms- 
lruosa» li'nea de DATAs cn la quo tc- 
nemos que modificar el ultimo nLi¬ 
me rode la lists, con el dcsplazamicmo 
vertical del cursor podemos ahorrar 
mucho tiempo), Sc me j ora en genera! 
el tenia de la edicibn de lineas. 

- Hay que destacar la posibilidad de 
pmgramacibn mediante procedi mien- 
tos, como en PASCAL. Se ban aha- 
dido tambien comandos utilizados por 
otros ordenadores, como es el easo de 
RENUM. AUTO. DELETE, etc... 
Se introduce una mayor flexibilidad a 
la hora dc crear nuestros program as 
ofreciendo mas fadlidadcs de cstrue- 
luracidn (ON x GOTO, DO UNTIL, 


etc,,.). Existe la posibilidad del trata- 
miento de error es de una man era sen- 
cilia. 

- Ademas de lo apuntado anterior- 
mente, se abre ante nosotros un am 
plio Libanieo de posibilidades que vur- 
Stin sob re los mas va dados tern as: Fa- 
cilidad para fundir dos li’ncas cn una 
sola, generacidn autom£tica de lincas 
de DATAs a partir de losdatos en me¬ 
mo ria, eonversorcs decimal-hexadeci- 
mal-binario, inform addn sob re La can- 
tidad de niemoria d i spoil ible, y un et¬ 
cetera que sc extiende hasla ueabar los 
30 comandos v 20 fun clones. 

El objetivo de este articulo es indi- 
carle los punt os mas intcresantes y las 
posibles desventajas del programs. 

EE c reader del programa. la firm a 
inaiesa Betasofl, llcva re a Liz ad as ya 
ires vcrsioncs, cad a una de el I as me- 
jorando Ja anterior y consiguicrido una 
total compaiibilidad ascend erne de los 
programas realizados con eualquieni 
de lostres Beta Basie. La mis antigua 
es la version 1.0. En Espara qutzi la 
mis di fundi da sea la 1,8 que es la to- 
mereialmidu por 3a casa Vcntamatic. 

Ya cn 1985 salid aE mercado itiglts 
la ultima renlizaddn, el Beta Basie 3.0 
que es el mis avanzado de los ires. El) 
reatidad la parte principal del pro¬ 
gram a es muy semejante en todos. 
Cuando eargamos el Beta Basic, a parte 
del bloque en cbdlgo miquina se ge¬ 
nera n 3 Hneas BASIC- Si hacemos la 
carga con MERGE, la ejecucidn se 
de tie tic y podemos observarlas. La 
primera de ellas (la 0) contiene la de- 
Liniddn de las nuevas fuueiones cn ed¬ 
digo mdquina. Las I Eneas 1 y 2 nos 
ofreeen la posibilidad de pasar el Beta 
Basic a Microdrive o Discovery I, fa- 
d I id ad que se ha ircluido para conse- 
guir una eurgEi nipithi, ya que sienipre 
que ulilicemos atguii programs o ru- 
tina qtte liaga uso de las nuevas fun- 
eiones y comandos, necesitsmos pre- 
viamente cargar el Beta Basic. 


Si no LUilizanios esta opciOn carga- 
remos el programa normalmente con 
LORD, lo cual hace que se ejecute el 
Beta Basie baeiendo uso de unO de SUS 
comandos para borrar las Hneas 1 y 2 
(DELETE I TO 2). La line a 0 es ne- 
cesaria para el funcionamiento del 
prtigramEi y pqrmanccc sin ser bo- 
r rad Li, aunque no aparecc en el list ado 
a no ser que sea la untca. Ado mas de 
conlener la definicibn de las nuqvys 
fund ones, la li'nea (I es esencial para 
consegiiir la perfect a adaptacidn dc los, 
progrEimas rqalizados eOn tualquiera 
de las tres versiones. l J or ejemplo, si 
trabajamos con d Beta Basic 1.8 gra- 
baremos nuestros pmgraniLLS con La li¬ 
nes 0 para que cuando los carguemos 
dc nuevo (con lo qiic dcstruimos cual- 
quiera line a de programa) sigamos 
conservando la necesaria Li'nea 0. (Rc- 
euerdu que todo el Beta Basic esui en 
eddigo maquina protegldo por el 
RAMTOP a exception de la linea Oen 
BASIC), SI mis larde conseguimos la 
version 3.0 podremos adaptar nues- 
Iros programas heehos eon la version 
1.8 con solo cambiar al princlpio de 
cada programa o rutina la antlgua li¬ 
ne a 0 por la nueva del 3.0. E lay 2 ma¬ 
ne r as dc utilizer d Beta Basic: 

- La manera normal para la que fue 
coneebido cl programa. 'IYeis estudiar 
el manual de instrucciones, lo cual 
Neva un ttcrlo tiempo, nos acostum- 
bramos a su uso y empezamos a sacar 
el jitgo a cste potenlc instrumento de 
prugramacidn, Nuestros llstitdos tie- 
nen cada vez mas de csos comandos 
intdiglbles para nucsiro Spectrum sin 
el uso del Bela Basie. El mane jo de las 
utiles fund ones se bate i m prescind]- 
ble. Aeabumos saeando un euadro re- 
suitien de la posiddn de los nuevosco- 
mandos y lo pegamos junto a nuestro 
reel ado. Con el relative esfuerzo que 
iinpone todo lo nuevo, homos conse- 
guido agrandar la potenda del BASK’ 
dc Liucstro Ordenador. 
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— Conocemos et Beta Basic pero somos 
pragramadores que util Szamos gran 
parte tie 3a memoria del ordenador. 
Nos parcel excestvo sacrificar casi 10 
K con un program a que ha de residir 
permanentemente en memoria, A pe- 
sar de csto podemos sacar un gran par- 
tidoal Bela Basic, lmagjnate que quie- 
rcs poner un programa en ctidigo ma- 
quina dc urtos 2 Ken forma de DA- 
TAs. Despues de imprimir en papel 
los- dates contenidos en memoria ten- 
drds que teclcar mas de ;j[2000 ittj- 
merosSr!. Con et Belu Basie ulilizando 
el coin undo KEVIN g-enerar&s dirce- 
lamcme las li'neas de DATAs v lu 
Qivico trabajo consistsri en grahar el 
programs gencradu (esta vez sin la ti¬ 
nea tl), M3s tarde podnis utilizar tu 
mievo programa sin tenet el Beta Basie 
carg* *ido. 

- Existcn machos in as ejcmplos dc 
esra segunda forma dc utilizacitin. Po- 
demos simple me n(.c usar las facilida- 
des de edition del Beta Basic y el mo- 
vimiemo vertical del cursor. O tam- 
bien i magi rate que tras la realization 
de un gran programa necesitas ahorrar 
memoria. Con cl coman do JOIN po 
drds unir dos a dos tod as las lineas de 
tu listado y conseguir una macro-line a, 
uhommdo 5 bytes porcada niimcro dc 
sentencia que climines. En el campo 
gr&fieo ocurre olro tanto. Fodemos rc- 
llenar figures de color con FILL o al- 
lerar atributos con ALTER y una vez 
acabuda la paralalia grabarla apartc, 
Como comprobaras podemos util tzar 
d Beta Basic para conseguir nuestros 
fines sin tenor luego que tenerio oom- 
pletamemc ubieado era la memoria. 

Para haeer un resumcn do las posi- 
bilidades del programa nos centrare- 
mas en la version 1.8 por considers r 
que es la mils difund id a en Espana, 

Una vez cargado el Beta Basic sa- 
bremos que estd funcionaudo al apa- 
reeer el mensaje de Betasuft on la 
parte inferior de la par tails sustitu- 
yendo al normal del Spectrum. A de- 
mas el apuntador de I inea es parpa- 
dcante y se ha aumentado el chas- 
quido dc las ted as (que se puede qui- 
tar pukt'undp cn las variables del sis- 
tema). El programa cs cargado en la 
parte alia de la memoria, a partir dc 
la 55800, por lo que en principio no 


results compatible con interfaces 
eomo la RS232 de Indcscomp. 

Ya cslarnoscn conditioner de poder 
utilizar los 30 comandos v 20 ftmciones 

r 

que ans.de la version 1 .8 ademfe de 
otras ventajas que aporta el programa, 
como pueden ser la aceleraddn de los 
program as rodados bajo la accidn del 
Beta Basic. IncluSO los GO TO. GO- 
$UR y RETURN son m£s rapidos. Se 
ha conseguido un BREAK mas po- 
tente quo nos puede sacar de algun 
apuro en eddigo maquina y cuaudo 
ejecutemos un NEW la linea (I que- 
dara a salvo. 


COMANDOS 

Normal merite se accede a cl los pa- 
sand o al modo GRAPHICS y pul- 
sando la ted a corrcspondienic. y en 
aJgunos easos con GRAPHICS + 
SYMBOL SHIFT. Como podr^s ob- 
servar los UDG no eslahndisponibles 
a no ser que ejecutemos KEY¬ 
WORDS 0. Los lisiados csiar^n mas 
co nf u sos. pero tus program as rodaran 
perfect smente, Para volver a la nor¬ 
mal id ad cjecuia el comando KEY¬ 
WORDS L 

- latilidades gra fleas 

* ALTER (INK, PAPER, FLASH, 
BRIGHT) TO INK, PAPER, 
FLASH, BRIGHT : Permite alterar 
tualquicra de los atributos cn pEtn- 
talia. 

Ej: ALTER TO PAPER 1, INK 7, 
BRIGHT 1 cambiaioda la pan- 
talla a cstos atributos. 

ALTER PAPER 2 TO PAPER 
I cambia solo las posiciones con 
pa pel raja a pa pci azuL 

* FILL (INK o PAPER); x t y : 

Llena de color el area de una figure 
que este en bianco. Las coordena- 
das x, y son de un punlo interior a 
la figura. 

Ej:; FILL x, y rcllenu del color de 
tints en curso. 

FILL INK 4; x, y llena de color 
verde un rednto, 

Codigos de control: 

Se ban mejorado los pcquenos dc- 
fcctos que tenian, como cl movj- 
mien to a la izquierda en l a primcra 
column a fahora pasa a la Fila supe¬ 


rior), o la impresidn dc >v ?” en el 
caso de CURS 10 y 11. 

CHRS 8 cursor izquierda 
Cl IRS 9 cursor derccha 
CHRJ 10 cursor abajo 
CHR$ 11 cursor arriba 

* ROLL d (, n)(;x, y; a.l): 

Mueve un pixel la pan talia en la di¬ 
rection cspccificada por “d LL (las di- 
recciones seran las indicadas por las 
flcchas del Spectrum, no como en el 
caso anterior). Si ahadimos “n" la 
pan talia sc moverS M n” pixels, Po- 
demos desplazar solo una portion 
de pant all a indican do la esq u ha su¬ 
perior izquierda (x, y), la anchura 
(l<a<32) y la bngitud (KK1.76). 
Adcmas si sumamos 4 al eddigo dc 
direction sc dusplnzan iambi era los 
atributos. Si res tamos 4 lo haccn 
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sdlo Eos a tributes, Con ROLL todo 
lo que se esuonde por un lado cie In 
pantalla vuelve a salir por el 
opuesto, 

Ej: ROLL 3, 4 mueve la pantalla 4 
pixel a la derecha. 

ROLL 6 , 8; 0, 175; 32, 38 
mueve 8 pixel hacia aba jo el 
cuarto superior izquierdo de ta 
pantalla, 

- SCROLL (d)(, n)(;x, y; a, 1): 

Cast igual que Ea anterior. Solo se 
diferencia en que ahora eon el des- 
plazumienlo todo lo quo sale por un 
extreme se pierde y no vuelve a sa¬ 
il r. Adcmds podemos escribir tan 
solo SCROLL y conseguir que la 
pantalla se mueva aniba una Llnea, 
* XOS T YOS, XRG T YRG: 

So ei variables especiales que definen 
la position del orig.cn (XOS„ YOS) 
y la e sea La ulilizada cn ius ejes x 


Aplicaciones 



(XRG) e v (YRG), Sus valores nor- 
males son XOS=0 T YOS=O t 
XRG=256, YRG* 176. 

Ej.; LET XOS=55 : LET YOS - 82 
mueve el origen de (0,0) a (55, 
82) eon lo que ahora tendrd 
sentido PLOT -20, -20. 

LET XRG-128: LET 

YRG=88 aumenta Ea cscala al 
doble, Si hacemos un DRAW 
50J) eon esta eseala veremos 
cn pantalla una linen horizon¬ 
tal de 100 pixel de longitud. 

* PLOT x, y {; frase) : 

Las coordenadas "x" c "y” quedar 
refpridas a la column a superior iz~ 
quierda. Podemos cOlocaruna frase 
cualquiera en un pixel determinado, 
no como con PRINT AT fila T co¬ 
lumns. 

Facilidades de edition 

* AUTO (x) (, y): 



Generation auto mat Lea de mimeros 
de linea, 

Ej: AUTO empieza en la linea 
10 y va de H> en LO. 

AUTO 135 empiez" en la linca 
135 con un intervale de 10 
AUTO 63,8 empieza cn la 63 v 
sigue con la 71 (de 8 en 8) 
p RENUM (x TO y) (LINE z) (STEP 
s): 

Podemos renumcrar bloques de ”x' 
a ”y” (x TO y). Empezarenios a re- 
numfirar cn olra li'nca ”z” d is tints 
de la 10 ahadiendo (LINE z). El in- 
tervalo es introducidc con STEP. 
Ej: RENUM renumera de 10 en 10 
empezando en la lines 10, 
RENUM (150TO 260) STEP 5 
renumera cl intervale de 5 en 5 
empezando por la linca 150. 
RENUM (120 TO) LENE 300 
renumera desde la 120 al Final, 
convirtiendo dicha linca cn 300, 
y a si' suecsivamentc, 

* DELETE (x) TO (y) : 

Borra las line as de Ya *y\ 

Ej; DELETE TO horra'todo e! 
programs me nos la llnea 0. 
DELETE i TO 1 borra la line a 
1 . 

DELETE TO 230 borra hast a 
la 230. 

* DEF KEY Y'; frase : DEF KEY 
”x”: sentencia. 

Nos permite introdudr en una tecla 
cualquiera (Y), una base o sen- 
tencia de frecuente uso. A si cuando 
pulsemos SYMBOL SHIFT + 
SPACE + ”x” obtendremos la frase 
o sentencia inirodueidas. Si Lo intro- 
ducido fue un comandodirecto, este 
se cjecutara. 

Ej: DEF KEY ”8"; "Ldpez:” pul- 
sa n do las tc elus S. S. + S PACE + 
”8'’ obtendremos en la parte 
inferior Lopez. DEE KEY V: 
PRINT ’ Pedro" cada vez que 
lo requiramos imprimirS Pedro. 
DEF KEY "h"; ’TO GO TO n” 

cs simitar a las anteriores. 

DEF KEY ERASE borra todas 
las definiciones de tecla. 

* EDIT (x) i 

”x” es el niimero de la Line a que 
queremos editar. 

Ej: EDIT 50 equivale a LIST 50 + 
BREAK + CAPS SHIFT 1 
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* JOIN x ; 

Unc la Jinea especificnda (o si no sc 
hace, la que apume cl cursor) cor Ja 
in media tame nte inferior, climb 
nando cl numero de I Inca y aria- 
cliendo 

* SPLIT : 

Si en mi tad de una multisentenda 
(despues de “:”) introdudmos el 
simbolo eonseguiremos di- 

vidir la Hnea original en dos senten¬ 
ces distint as (con el mismo nu- 
mero). 

* LIST x TO y : LUST X TO y ; No 
necesitan comentarios 

* TRACE x: 

Es un demento muy util para la de¬ 
puration de programss. Cada vez 
que sc eject]ta nna instruction, si 
hemos introducido TRACE cn el 
program a sc pmvoeara un sal to a la 
subrut in a apuntada por ”x’\ lo cual 
podemos apjrovechar para imprintir 
cl numero de sentcncia, la mstrue- 
ddn ejecutada y las variables ulili- 
zadas, Esto es posible va que son 
datos que la rutina almaccna en las 
variables LINE y STAT. Podemos 
conscguir la ralenlizatibn dc la eje¬ 
ct] cidn de nuestros programas u 
oiros efcctos con sdlo introducir 
PAUSE y demas comandos cn la 
subrulimi ubicada cn + V\ TRACE 
0 descon cut a el con an do. 

- Fadlidinks de estructuraeidn 

Beta Baste permite nna forma de es- 
tmcturacibn parsei da a GOSUB - 
RETURN peromuchomas flexible. 
Se trata de DO - LOOP don do DO 
simple mcme indica cl lugar at cual 
debe regresar la subrutina despues 
de eneonirar a LOOP, 

Ej: 10 DO 

211 PRINT "INPUT”: PAUSE 

10 

30 LOOP 

Hasty Eiqui no cs nada del otro 
mundo, La ventaja reside cn ta po- 
sibilidad de implement ar conditio¬ 
ner tanto en DO como eti LOOP, y 
asi conseguir una espccie de subru- 
tinas autocontroladas, 

- DO WHILE (hazlo mientra* 
quo,..- condition -) 

- DO UNTIL (hazlo hasty que,..- 
condicidn -) 


- LOOP WHILE (regresa micniras 
que,.,— condition -) 

- LOOP UNTIL [regress hasta 
quo.,.- condieidn -) 

Ej: Podemos incluir una condition 
de las dos mancras: 

DO UNTIL x < 65 equivale a 
DO WHILE x >= 65 
Para complementar aun mas la es- 
trueiura podemos utilizar el co¬ 
rn ando ’’EXIT IF condiridn” entre 
el DO v cl LOOP, con Jo que eon- 
seguiremos abandonar el proceso 
por otra via distinta, 

Aparte de la forma de estru dura¬ 
tion que acabamos dc ver, ex is ten 
otra serie de comandos que poicn- 
cian el uso de los budes cn nuestro 
Spectrum, 

- ELSE : Normal mente despu^s del 
uso dc ’TF x THEN...”, si la con¬ 
dicion impuesta no sc eurnplc, 
todo hi politico eomando que se 
enuuentre a conti nuacibn sepa- 
rado por dejara de cumplirsc. 
Cor ELSE tenemos In oportunF 
dad dc ejecutar urn com a ndo para 
esc caso en el que no se cunt pic el 

"IF x 

Ej: 10 LEI k=0 

20 IF k<>20 THEN PRINT 
’’INPUT”; ELSE PRINT 
’’SINCLAIR” 

30 LET k=k+1 
40 GOTO 20 

Para k=2Q sc impnmira SIN¬ 
CLAIR cn vez dc INPUT 

- ON: Combirtado con GO TO o 
GOSUB los hace mucho mfis fie* 
xibles. Segun el valor que tome la 
variable situada despues de ON, 
sclcccionamos uno dc los numeros 
dc linea dc hi lista que hayamos 
introducido. La ventaja reside cn 
que estos numeros no deben se- 
guir ninguna secuencia lbgica. 
Como nos indica d manual, es 
muy util combinar ct uso de ON 
con GE T, que dc forma similar a 
INKEYS permite introducir infor- 
macidn desde et tec I a do. La dife- 
rencia reside cn que GET espera 
a que sc pulse una teela para con- 
linuar (como PAUSE 0). Fuedc 
ser usado como variable alfanu- 
nicrica (GET a$ ) t> ettmtt variable 
mimirica (GET a). St lo utiliza- 


mos de esta segunda forma, 
cuando pulsenios una leela nu- 
merica oblcndremos su valor, 
pero al apretar A obtendremos 
10, con B, 1L etc... (contamos cn 
hexadecimal). 

Ej: 10 GET aS: PRINT aS; 

20 PRTNT aS: 

30 GO TO 10 

Si inula ra el cfecto de una ma- 
quina de escribir. 

Ej: 10 GET a 

20 GO TO ON a; 123.41, 2. 

123. 43, 54, 63 
30 GO TO 10 

Cuando pulse mos ”2” cl GO TO 
de la linca 20 nos lie vara a la sen- 
tend a 41. Si pulsumos "6" se pro- 
ducird un GO TO 54, 

" Manejo de errores: ON ERROR x 
Comando muy parecido a TRACE 
en estnictura y funcibn, Cuando se 
produce un error cl programs da un 
salto a la dirccci6u apuntada por 
"x” y ejecuta la rutina que alii est^ 
ubicada, El eddigo del error, la li¬ 
nea y la seutenda dondc se ha pro- 
ducido son almacenadas en las va¬ 
riables ERROR, LINE y SEAT 
para su posterior uso, Asi, eono- 
cicndo el eddigo del error a tratar (si 
consul I as cl ape nd ice ittanual po- 
dr4s coin probar que cl Beta Basie 
a bade nuevos errores) se pueden 
conseguir instrucciones del tipo: 

IF error = z AND tine = h 
THEN RETURN 
Si sc produce cl error dc codigo "z” 
en la linca ”h” el programa regresa 
a la siguiente instruocidn a la que se 
produjo cl error, con lo que sc con- 
sigue evltarlo. 

K Urilizando los procedimientos, 

Al igual que cn otro conoddo len- 
guaje de programacibn, el PAS¬ 
CAL, nuestro Beta Basic nos per¬ 
mite utilizar los procedimientos 
(procedures cn ingles), En eseneia 
se puede considerar que son una es- 
pecie de subrutinas pero mucho mas 
independicnEes y de cstructura si¬ 
milar a Eas funciones dc nuestro 
Spectrum. Prcviamcdtc deberemos 
definir cl procedi in icn to con ”DEF 
PROC nombre” lo que marca el co- 
rntenzo de una seric de lincas (no 
sblo una como con DEL FN) con la 
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accion aejecutar, las cuales deberan 
aeabar siempre con el comando 
END PROC, Cada vez que quera- 
mos usar cl procedi mien to ]o con- 
seguiremos con "PROC n ombre”. 
Las ventajas que aporta csta forma 
de programacitin se traducen en una 
mayor «limpicza» y ordenatidn tie 
nuestros listados. Con tin simple vis- 
tazo podemos comp rentier la estruc- 
turn del programa, e introducir po- 
sibles cambios on tin procedimiemo 
sin afectar a los dcmas. que estan 
perfects men ic aislados. La trama 
cjccutable puede llegar a ser sim¬ 
ples llamadas a los procedi mien Los, 
los cuales pueden estar definidos en 
cualquier lugar del listado. 

- Usos multiples 

” I .os nest antes comandos quo aporta 
el Bela Bask son una serie de ulili- 
dades sob re temas variudos: 

- POP x : Cuando utilizamos GO- 
SUB, DO o PROC se abre una 
pda don tie se anota la direction a 
Ea que debe regresar el control 
despues de eneontrar RETURN, 
LOOPo END PROC, Con "POP 
x” podemos pasar este valor a la 
variable x” para Luego podcr lm- 
primlrlo o manipularlo. Para no 
alterar la secuencia 16gita del pm- 
grama deberemos anadir ”GO TO 
x + 1", ya que RETURN no ten- 
dria el efecto esperado al no hallar 
la direccion de retorno en 3a pita, 

- DPOKE x, n : Consiste en hater 
un dohlc POKE, Nos ahorra el 
trahajo dc tenerque dividir un mi¬ 
me ro mayor que 255 en dos bytes 
(el mas y el menos significative) 
antes de inlrodueirio en memoria: 

10 POKE 30000, 12325-256*(INT 
12325/256) 

20 POKE30001, TNT(12325/256) 

eqtiivale a : 

10 DPOKE 30000, 12325 

- KEVIN : Es cl ya comenladu co¬ 
ma n do que nos perm ire la gene¬ 
ration auto mat ica de sentences 
DATA, aunque cn realidad pue¬ 
den ser cualquier tipo de lineas. 
no sdlo DAT As, En el manual del 
pfugrama esla ex pi lea da la rutina 
generadora de tineas, la cual es de 
una extraordinaria utilidad. 


- CLOCK r Nos per mite la utiliza- 
cion de tin reloj de 24 boras que 
trabaja mediantc interrupciones 
(por lo que fugue avanzando agn- 
que est£s ejecutando tus progra¬ 
ms ). Con sus diferentes opciones 
podemos conseguir que aparezea 
el reloj tipo digital en la esquina 
superior dcrccha, o suene una 
alarma a una bora prefijada. La 
olra posibilidad que incorpora el 
comando es la de poder ejecutar 
una sub rutina cad a vez que try ns- 
curra un intervalo dc tiempo. La 
rutina a ser ejeeutada no tienc li- 
miration dc ningur tipo. Tan solo 
hay que tefler cuidado cuando eje- 
cutemos BEEFs t> hagamos eargas 
de cassette o disco, ya que csto 
paraliza durante esc tiempo maes¬ 
tro reloj digital, 

- SORTo SORT INVERSE : Sirvc 
para ordenar en orden asccndente 
o descendentc (INVERSE) una 


list a de niimcros o tclras segUn su 
eddig-o ASCII, 

Ej: INPUT aS: SORT a$: PRINT 
aS imprimird " Mmaaeelnnu” si 
antes se introdujo "Manuel 
Mena". 

Es un cpmando muy r£pido y pe¬ 
te ntc del que su uso mas iniere¬ 
name sea quizci la posibilidad de 
orde nation de matrices nurncricas 
v alfanumdricas, en su total idad p 
sdto una parte (SORT li$(,l TO 
15), SORT d$(21 TO) etc,..). 
Como indica eE manual esto po- 
dria ser una magnifica ayuda para 
empezar a crear una pequena bEisc 
de datos. 

USING : Espcdfica La forma quo 
deseamos que tengan los numcros 
cn pantalta, Para definir cl for- 
mato utilizamos lt>s sfmbolos 
(que deja un espacio) o ”0" que 
imprime un (j siempre que no haya 
digitos suficientes para llenar di- 



INPUT SI 













































eh si posicidn. Si el formato recorta 
cl nilmc to, esle es redondeado, y 
si una eifra principal (de la iz- 
qujerda) es truncada, aparece cE 
simbolo 

Ej: Un PRINT USING del mi¬ 
me ro 234,306 quedari asi cun di- 
ferentes formates: 


"OtT 

”0000.0” -> 
"&0OQ,(KXr 


"234,3.1” 

”%34” 

"0234.3” 

"&234.306” 


- POKE x, string: Penniie no solo 
la introdueddn de un date en la 
memoria. sino cl mtinejo de una 
gran cantidad de ellos en combi¬ 
nation con funciones como ME' 
MORY$(>< x TO y), 

Mcreee la pena nombrar ahora 
csta fmicibn ya que a I permltir el 
mane jo de grandes zonas de ine- 
rnoria, va inti mam ente unida a l 
uso del citado comando. 

El manual desarrolla dos Lipos dc 
ejemplo que son dignos de men- 
citJR, Uno cs el manejo de partes 
de 3 a nicmOria, como h\ pan la I la o 
bytes de la ROM que pueden ser 
movidos de un lugar a otro, Hs 
una stmulaeirin desdc BASIC del 
comando en eddigo m Equina 
LOIR. 

Ej: Fodemos rellenar Ea pantalla 
con datos tornados de la ROM 
consiguiundo una Kpinlura abs- 
lracta»: 

POKE 16384, MEMORY$(X t 
TO 6912) donde la posidon 16384 
es la del comienzo del archive de 
pantalla a donde van a ser trash* 
dados casi 7K del principle de la 
memoria. 

La otra idea interesantc es hi dc 
poder preservar program ns ente- 
ms de la accidn de un NEW guar- 
dan do junto a 3a zona de memoria 
ocupdda pur el programs, las va¬ 
riables del si sterna: 

CLEAR 33999: POKE 34000 t 
MEMO RY${><23552 TO 
33800). Una vez bccho esio el 
prograrna cstarii a salvo de NEW 
ya que q uedara a I mace n ad o po r e n- 
cima del RAMTOP. Si mas tarde 
ej ecu la m os POKE 23552, ME* 


MORYS(><34000 TO 44246) 
to dcvolveremos a su lugar. 

Ai igual que los cotnandos esian 
rcaEizadas cn ctfdigo maquina, tiece- 
sitando como ya cement a mos la linea 
0 para su eornecta definition. Se imrt)- 
ducen como lo hariamos con una fun- 
cidn normal dcfinlda por nosotros. Al 
iniroductr FN v una de las leiras re* 
servadas o blend re mos automitica- 
mente la palabru clave. Ej: teeleando 
KN R< obtenemos RNDM<. El resit) 
de funciones no reservadas se mane- 
jan norm aim ente y funcionyn como de 
costumbrc. A continuaridn adjuma- 
ntos un resumen dc las funciones elave 
con un comentario dc las operaciones 
intfs intporiantcs qtie realizan, 

* AND (x, y), OR <x, y) T XOR <x, y): 
Ejccutan la fun cion logica que in* 
diea su nombre, entre Eos dos nti- 
mems introducidos, 

SINE, COSE: Funciones seno y co¬ 
se no inodifieadas que aurque con 
un grade de aproximaeidn dc sdlo 4 
digit os, consiguen una velocidad 6 
voces mayor, 

* RNL>M (x): Da un numero aleato- 
riu entre 0 y s ’x" (es como hacer 
PRINT INT(VRNP)). Si cjecuta- 
mos PRINT RNDM(tl) consegui- 
mos un PRINT RND normal, con la 
salvcdad de que es 2 veces y media 
mis ripido* 

* DPEEK x: permite un doble PEEK 
dc manera semejanie a DPGKE. 
FILLED ( ): Dcvuelve el niimero 
dc pixels rctlenados eon FILL, 
TTME$( ): Aim ace na la hora que 
apunta el reloj digital tomo una ea- 
dena dc 8 caracteres. Ej: 12:34:45. 
DEC: Conversor hcxadecimaLde- 
dmaL Ej: PRINT DEC (’"IE”) = 
31. 

* HEXS: Conversor decimal-hexade¬ 
cimal, Ej: PRINT HEXS(IO) = 
”0A" 

BINS: Conversor decimal-biniirio. 
Ej: PRINT BIN$(4536) nos devol¬ 
ved el siguiente niimero en binario: 

mnmimum. 

MEM(): [inprime el numero dc by¬ 
tes de memoria que quedan por 
ocupar. Es equivalence a hacer 
PRINT 65535-USR 7962, 

? MEMORYS( ): Ya fue eomenlada 
junto con el comando POKE, 


” MOD (x f y): Devuelve el resto re- 
sultanle dc la operation "x/y", 
CHARS (x): Convierte llii numero 
comprendido en eE rango 0 a 65535 
en dos eadenas de 2 caracteres cada 
una. Asf, el almaecnaje en memoria 
oeupa sdlo dos bytes en vez de los 5 
que utiliza normal men te, ct>n el 
consiguiente ahorro de espaeio, 

Ej: 10 LET H=INT (31255/256): 

LET M=31255-H*25G 
20 LET KS=CHARJ (H) 
+CHARS (M) 

* NUMBER: Complements la fun- 
cion anterior. Normalmenle la im- 
presidn de un numero comprimido 
con CHARS produce un error al 
contener eddigos de control. Con 
NUMBER podemos devolverlo a $u 
forma normal antes de imprimirhy, 

4 USINGS: Realiza la misma funcidn 
quo el ettmando USING pero usi 
como esie sdlo podia ser aplicado a 
PRINT, la tuncion USINGS per¬ 
mite ser combinada con otro tipo de 
eonicindos, 

* SCRN$ (x T y): Muy pared da a 
SCREENS (x, y) (x^ftla, y-co- 
lumna) pero reconocc lambicn 
como caracteres normales Eos 
UDGs. 

* STRINGS: Repile una cadena de 
caracteres cl numero dc voces es- 
pecifieado. y tic forma mds rapid a 
que un buele FOR-NEXT 

Ej: PRINT STR1NGS(352,”) 
lEena de aSlcriscOS la mi lad de la 
pantalla. 

* INSTRING (x, cadenal, cadena2): 
Busca la serie de caracteres 
”tadena2” dentro dc otra cadena 
mas larga "cadenat“ empezando la 
bu-squeda en cl catheter ”x” de 
"cadenal". Es postble la urillzaddn 
del simholo 11 #” como eomod in. 

Ej: PRINT INSTRING (5, AS, 
"L#S") provocar^ la impresidn dc 
"LOS", “LAS", ”LES\ "LDS“ P 
etc,, siempre que se cucucntren a 
parlir del quinto elements de AS 
(cadena donde busear). 

Las posibilidades de uso son muy 
amplias pudiendo milizarsc para la 
biiM^uedti dentro dc matrices, revi¬ 
sion dc eadenas intmducidas me- 
diante INPUT (y asi poderlas com- 
parar), etc... 


52 INPUT 













Abril cle 1987 


LOS MEJORES 
DE INPUT SINCLAIR 


FUESTO TITULO FORCEMTAJE 

L° Commando . 23,1 % 

? 0 Green Beret . 12,2 % 

° Saboteur . 10,5 % 

4. ° Ghost'n Goblins . 8,5 % 

5 . ° Army Moves . 7 , 9 % 

6 . ° Cobra . 7,9 % 

7. ° Thanatos . 7,7 % 

8. ° Rambo . 7,5 % 

9. 0 The Sacred A. of Antiriad .... 7,4 % 

I0.° Batman . 7,3 % 

100,0 % 


Faia la confeccion de esta relacidn unicamente 
se han tenido en citenta las uotaciones 
enuiadas par nuestros lectore s de acmrdo con 
la secdon «LOS MEJORES JfiFUT». 


INPUT S3 

































de Software 


MAPA, CARGADOR Y POKES PARA... 


jUVINGSTONE, SUPONGO! 


En 1866 , el famoso explorador Da¬ 
vid Livingstone pEiriid del Rcino 
Unido hada eJ Africa negra en busca 
de las fuentes del Nilo. Tras an os sin 
noticias dc] cxplorador, uhei re vista 
norteamericana encomendd a otro fa¬ 
moso explorador, Henry Morton 
Stanley. eneontrar a I supuesto exlra- 
vtado Livingstone, para locuai se em- 
barcb hack Africa y parlid desde Ba- 
gamoyo, en la costa Oriental. junto a 
Zanzibar, desde donde remontd el no 
para ha liar ei Livingstone, dtmdosc 3a 
par ado j a dc que cl bn scad or tuvo que 
ser buscado. Nuesiras a venturas co¬ 
rn ienzan eon las a venturas de Stanley. 

Para afrontar nuestra dura empresa. 
Stanley porta cn su moebila tin co- 
pioso material que nos sera muy util y 
necesario para llevar a buen fin nues- 
ira ntisum. Hsec material sc compone 
dc un bourne rang , con su cksko mo- 
vim ien to de id a y vuella, un mac b etc, 
que puedc ser arrojado horizon lal- 
mente. granadas, las cuales tienen un 
efecto paraboiico, y, per ultimo, una 
inseparable p£rtiga, con la cuaE pod re¬ 


ntes realizar una in fin id ad de sal Eos 
para salvar Jos distintos obstacuEos, 

Todos estos objetos tiener un nlvel 
dc fuerza que debemos utilizar perfee- 
tamerue pEint conseguir nucstro oHjf- 
livo, Asi que lo primero que ha rentes 
es aprendera manejaradecuadamerne 
cada arma, 

Acto seguido nuestra inisidn sera la 
de buscar, pantalla tras pantalk, bis 
cinco gemas sagradas del temple dc 
los Ujiji, pucs nos seran imprescind i- 
blcs para pas<ir el templo y asi poder 
continuer la aventura. Habremos de 
cstar siempre pendientes de los nivelcs 
de nuiricidn e hidrataeidn. pues de 
ellos dependc nuestra vida. Estos ni¬ 
velcs los podremos recuperar reco- 
gtendo los diversos alimemos desper- 
digados por 3a jungla. 

A parte dc Los bidiejos prdpios de 
cad it pantalla, y a los cuales poco a 
pOeo iremos cEiminando. para prosc- 
guir nuestro camino hay que baeer es¬ 
pecial men cion de los sigulentes obs- 
Uteulos, Sin duda. el mas temido C in- 
cordianle enemigo cs el aguila. Dc- 
bemos dc jar nos coger solo una vez y 
para aleanzar la gema que sc halla en 


el nido, Una vez recogida, en ningiin 
caso debqrtiOS caer de macvo cn sus 
znrpas, pues(o que el dguila nos lie- 
van a casi al principio dc la jungla, con 
lo que lend riant os- que volvcr a em- 
pezar. Otro obstAculo difi'ei] es cl co- 
codrilo que sc halla en hi cmrEida de 
Ea min a y merodea ante esta, Solo dis- 
ponemos de un scgundii para intro- 
ducimos en la cueva saltando desde el 
principio de Ea pantalla. Otro tenaz 
obstaculo es el Pozo. Debemos cab 
eukr muy blen el salto. pucs si caemos 
perderiEimos todas nuestras vidas, asi 
que mueho ojo. Por ultimo, las trant- 
pas. Deberemos fijarnos mueho en el 
suelo para no pisar Eos tronens. puesto 
que estos sc hunden y caemos cn las 
trampEis dc las que solo podremos salir 
accionando con el boomerang Eels pa- 
kncas dispuestas a este fin. 

Me El cion especial mcrccen bis pan- 
tallas de la cascada,, las cuales tendre- 
mos L|ue atravcsEirlas siempre por 
arriba, pues de lo coni ratio siempre 
volveremos si I principio, Esto mi s mo 
deberemos Etacerlo en la ultima pan- 
tafia de la mina. 


CARGADOR 

Para haceroslo mas facil. los mucha- 
chos dc Opera ban induido en ei car- 
gEidor de su programa uhei rutinii, eon 
la que, a I introducir su nombre, 
<«OPERA>», a partir de la direccion 
(>24fv4 nos dara vidEis infinitas. 

Tambi^n incluimos un cargadorcun 
el que podrdis climinar a vuestro gusto 
los encmigos. 


COMO USARLO 

Una vez tecleado* lo salvaremos. 
Acto seguido lo ejeeutamos y cl pro- 
grain a nos sacari un menu en el cual 
elcgircinos las opciones que quera- 
mos. FinEilizEidsis nuestras pcticimics, 
puisarentes la c introduciremos el 
programa ORIGINAL y pulsaremos 
PLAY; cstc sccargara y disfrutaremos 
del juego a nuestra medida. 





















10 DATA "VIDAS INFINfTAS" 

20 DATA "AGUILA" 

30 DATA "PLANTA CARNIVORA" 1 
40 DATA "OJOS TRAMPA" 

50 DATA " MONOS' r 
60 DATA "MINERQ5" 

70 DATA "LANZEROS" 

80 DATA "ARQUEROS” 

90 DATA "MAGO M 
100 DATA"VAGQNETA" 

110 DATA "GRISU" 

120 DATA "PRIMITIVQS" 

130 DATA "SlRENA" 

140 DATA "TORNADO" 

150 DATA "BQLA DE FUEGO" 
160 DATA "ARANA" 


continuar " 

208 LET 3-62719 

210 READ A$: IF 

A$ = ,p T—SAUR" 

THEN RUN 

211 LET a=a+l 
220 PRINT 

222 PAUSE 0 

223 IF INKEY$ = "F" THEN GO 
TO 2010 

224 IF INKEY$=CHR$ 13 THEN 
GO TO 210 

260 IF INKEY$ = "T" THEN GO 
TO 310 

270 IF INKEY$="S" THEN FOR 
m-62720 TO 62720+19: 


1000 DATA 221,33,0,0,17,17, 
0,62,0,55,205 r 86,5 

1005 DATA 221,33,0,0,17, 

145,0,62,255,55,205,86, 

5 

1007 DATA 243,221,33,0,64, 
17,232,182,52,255,55, 
205,86,5,243,175 

1010 DATA 2 11,254,42,0,245, 
126,183,40,5,42,3,91, 
54,0,221,33 

1020 DATA 73,250,253,33,1, 
245,6,17,253,126,0,183, 
40,17,221,126 

1030 DATA 0,203,39,95,22,0, 
33,183,213,25,54,159, 


170 DATA "MERCENARIO" 

180 DATA "COCO DR ILO" 

190 DATA "Pulsar 5 para 
eliminar TODO" 

195 DATA "T-SALIR" 

200 BORDER 0: PAPER 0: INK 
7: BRIGHT 1: CIS 
205 PRINT "CARGADOR 
LIVINGSTONE SUPONGO 

PRINT M -- 1 

207 PRINT ttlj"Pulsar-p-para 
eliminar el bicho": PRINT 
#0 ; ”Pulsar ENTER para 


POKE m,255’ NEXT m: GO 
TO 310 

306 IF INKEYSO-P" OR 
INKEY$<>CHR$ 13 OR 
INKEY$<>’T' OR 
INKEY$<>"S 31 THEN GO 
TO 222 

310 RESTORE 1000: FOR 
j = 64000 TO 64095+26: 
READ A: POKE J r A: 

NEXT J 

320 CLS : PRINT PAPER 1 ; INK 
7; 40;" PON EL ORIGINAL Y 


35,54,107,221 

1040 DATA 35,253,35,16,227, 
195,0,91,201,7,9,11,12, 

13,14,15 

1050 DATA 16,17,24,25,28, 
29,30,33,34,39,44,45, 
49,0,0,0 

2010 FOR n = 7 TO 0 STEP -1: 
BORDER n: NEXT m POKE 
a,255: GO TO 210 
2020 FOR m-62720 TO 

62720 + 19: POKE m,255; 
NEXT m: GO TO 310 






























D 



A. AGUILA 

B. TRAM PA 1 

C. TRAMP A 2 

D. GEMA 

E. NtDO 
































Hasla. ah ora , siemprc hemos 
reeelado dc los programs 
presenindos por firmas que 
repel idame rile aientan contra el buen 
gusto y la infinite! paeieneia dc 
nuestrus sulridns usuarios. Por eIJo, 
cuando una de estas firmas da un 
giro dc den to ochenta grades, y 
comienza a ofreeer program as 
verdaderamente buenos. no nos 
queda mas rcmedio que a plaudit 
dob I entente el mcrito. 

Lsio cs prccisamente lo que ha 
ocurrido eon Mastcrtronie. o lo que 
imes[ros amigos de DRQ Soft hail 
hedio que oc timers a rraves de su 
afortunada mtervencton. El 
result ado, conic nt ado 
letegrdf teamen le t cs estc: 

180 

ISO cs un in teres ante simulador dc 
lanzamiento dc durcJos (si no nos 
cquivocamos. eJ unico del mercado), 
quo induye varias opciones que ic 
permit Iran jugar con I os amigos, 
practical tranquiLamenle para 
perfecdonar eii estiio, o desaflar al 
orde nation en un campeonalo contra 
odio am lend ic cites. Con unos 
graficos excclcntes, y una euidada 
prcscntacion, sus auto res lian sabido 
resolver briliamcmente cl problems 
de reproducer en un ordenador un 
juego tan peculiar como el de los 
dardos. 


STORM 

Un arcade con mucha accidn y un 
tenia cast uostalgico: rescatur a la 
princess cauliva. 

Si lo que q meres cs pasar un buen 

rato sin complicate la vida, o 

simplemente estas harto dc 

com pie j as videos venturaS dc Las que 

no se resuelven ni a base de pokes. 

enhances seguro que le gustara 

STORM, 


BUMP, SET, SPIKE!! 

Estc program a reproduce una 
mo da I i dad deportiva nasi 

desconocida on 
Europa. que en los 
ullimos anus ha 
alcanzado grander 
cotas de popular!dad 
cn lOS HE. UU. Se 
trata del Volleyball 
dohtvx. 

El plan tea micrLto 
grafico del juego es 
similar a] empleado 
hasta ahora para 
otros deportes de 


equipo, aunque esta vez se ha 
aplicado un nuevo puntil tie 
perspective La animadtm dc los 
jugadores y la reproduccidn de las 
d is tin tils tEictieas dc juego, son Jos 
a sped os en los que mas destaca estc 
Original simulador deportivo. 

UN SUPEFUWARGAME DE 128 K 

Recientementc, la compania iuglcsa 
CCS ha bmzado al mereado un 
sorprendente simulador belico 
oodificado especial mente para el 
Spectrum 128 K (y por tan to, 
incompatible con el modelo de 48). 
cn cl que se revive la sanenema 
bat til I a dc Gallipolli, una de has 
acetones estrategieas mas interesantes 
dc la Prim era Guerra Mundial. 

I ibrada en 1515 cn la o rill a curopes 
tic los Dardandos e litre las tropas 
francobriliinicas y turcEis. 

Poco a poco. las companias 
productoras estan desterrando la idea 
de que srtlo los progntmas ile 48 K 
son rentables. E3 hecho que en 
mayor mod Ida ha contribuido a cste 
cambio de comportaniiemo, ha sido 
el inure memo de las vent as del 
Spectrum Plus-2. 


LO ULTIMO DE 
MASTERTRONIC 

















Varies nd menus atris. liicinios un 
breve comer tar io de BOUNDER, 
un sinipatico program a que nos dejd 
SOrpren didos por su l re mend a 
originalidad c innovadora 
resalizaddn. 

Su protagonists< come scguramente 
record Liras may bien. era una pc Iota 
de ten is extravisda, epic se 
desplazaba botando de un lado para 


capacidud para ealeular distances y 
trayectorias. 

Te lo rcoomerdamos en la segurldad 
absolmta de quo este programs 
ereado por Hewson te liara pasar 
moincnlos re a I me rite- apasionantes 
dclanle dc la pan tall a de In micro. 


IMPOSSABALL 

• HEW SON ■ REFLEJOS 


otro a L raves, de an cam i no se in hr ado 
dc ohstdculos, i rat an do dc He gar lo 
mis lejos posible. 

Desde que sc publico BOUNDER 
liasta ahora, sc liau ensayado 
numemsas interpretadones a partjr 
de este original modelo, algunas de 
el las mny interesantes y eon un nivcl 
de calidad nada desdcnable, pero 
ereemos que ninguna ha tenido tanto 
acicrlo ni tanta person alidad prop i a 
CGhio IMPOSSABALL, un programs 
preSentado por la prestigiosa firma 
Hewson a finales del aiio pasado, y 
publicado en lisparia en fee has muy 
recientcs. 

Con unos gra ticos tic gran cal id ad y 
una sorprendetUe precision en los 
dcspl aza m ientos, IMFOSSAH ALL 
pondra a prueba tus reflejos y lu 
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colisitiq, es hacerlo explotar antes dc 
quo sea demasiado mrde. pero solo 
Mekon conoce I os Inga res donde se 
escondcn los oomponentes de la 
secueuda de aiuodeslrueeifin. 

La misidn de Dan consists en lie gar 
hast a el asteroide para eneuntrar 
dichos componentes, e insertarlos en 
el panel de control adcctiado. En sn 
camino, tendra que derrotar a los 
esbirros que inlcnten caplurarle o 
rest uric energi'a. sortear pdigrosos 
obslaculos, v combatir contra el 
propio Mekon, que traiani por todos 
los mod it is de evitar que sus 
ambidosos planes fracasen, 

DAN DARE PUoto did Future? cs, sin 
duda, una de las mejores video- 
aventaras de la temporada, La 
calidad cscepdonal de sus sprites. la 
origin alidad y el acicrto del disefio 
grdfico, y su elevado grado de 
interds, la hacen Eiereedora de una 
v a Id rad tin ext raord i uariam e n le 
poskiva. Tc la reeomendamos sin 
reserve alguna. 
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DAN DARE, PILOTO 
DEL FUTURO 

• VIRGIN GAMES a CIENCIA FICCION 

El N de julio de l«K5. Fa I led (i Frank 
Hjnpsfon, creador de las famosas 
liras de Dan Dare (desgraciadamenie 
no tan famosas cn Espana), y padre, 
junto eon Iok auto res de Flash 
Gordon, de la historieta S.F. ckisiea. 
Un ano despues de su muerte, la 
firma Virgin Games adquirio los 
dereehos para reproduce su ultima 
a ventura a mode de homenaje 
ptistiiiuo, respetando en la rnedida 
de lo posible los dibujos y el 
pianteamlento de la accidn 
caracteristicos del genial estilo de 
Frank liainpston. FI resulmdo, en 
sus tres vers i ones (Spectrum, 

A ms trad y Commodore) no ha 
podido ser mejor, sobre todo si 
tenemos en euentEi L|ue en Eapana 
podemos disfrular dc una version en 


castdhmo, traducida v adapt Eida por 

DRO Soft. 

F.l argumenlo, propio del mas puro 
gdnero. sc desarmlla denlro de los 
ca n ones de! edinie dasico dc 
avenMiras, sin perder por ello eiertos 
rasgos de origins lidad, El 
plant camion to in id Ell es cl siguiente. 
El nialvEido Mekon, aspirante de 
lurno a «3eiior del Universe*, ha 
dado un cruel ultimatum a la Tierra: 

si los gobernames del 
rriundo no aoceden a 
rendirse sin 
condieiones. el pianola 
sera desiruido por un 
astcroide que se 
aproxima a gran 
vdocidad. La tinica 
forma de evitar la fatal 






























































Espana uii sofisucado simulador do 
vuelo acrobat ieo, con cl quc sc ha 
logrado alcanzar tin nivel de 
rcalismo hasla a horn impensable cn 
un inicroordenador. 

Cuando sc publicaron Strike Force 
Harrier y Ace, crciitios quo ya so 
habia dicho la ultima pa la bra sobre 
este lipo de program eis. Rccuerda 
quc ai prtmcro do cstos pro gramas La 
ealificamos nada menos quc como 
riscitsiicional: y quc Ic enviamos 
miestras mas efusivas feliriladones a 
la far mu fabrkunle, Mirmrsoft. Pero, 
pero como suelc ocurrir oil; estos 
cases, cl t tempo ha venido a 
demostrarnos lo cOntrario, y dc 
tiuevo hemos dc repetir el 


ACROJET 

• MICRO PROSE ■ ACROBACIA AEREA 

*EI BDS-J ACROJET cs un reactor 

mo nopla 7 .a espeda I me nie d isc r"iado 
puru la ncrobacia adrea, capa/ de 
alcanzar vo loci dados superiores a las 
20(1 mph, Su gran maniobrabilidad y 
su soils lieu da instritnicntuoicini, Ic 
conviertcn on una dc las inaquinus 
mas perfectas constrtiidas por el 
hombrc.i* 

La Hrma MIC RO PROSE, 

espedaiiirada en prog ram as dc 
sirnulacidn, acaba de presenter cn 


comcnlurio dc sicnipre: «parcce 
imentira lo quc sc puede llcgar a 
ha cor con 48 K escasos». 

Segura men tc, pronto vendra oiru 
simulador aun jviqjor dispuesto a 
a dslc, pero nilcntras tanto, 
podrenios asegurar quc ACROJET 
cs cl mas com picto de cuantos sc 
ban hecho. 
iNcs tc lo pierdas. 
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XEVIOUS 

• US. GOLD * ARCADE 

Sc t rat ft de un arcade del mas vie jo 
estilo, respetuaso con los canones 
elasicos. pero fallo dc gimdto 
adictivo. Los graficos y Jli aniniiiribn 
csian cn un nivd accp table, pero el 
con junto no ilega a ser lo 
suficieniemcme hue no cotno para 
merccer mui vaioraqjdn tan favorable 
come sc esperaba. 

El aqgutnento* oorno corresponds en 
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estos cases, es baslantc simple. La 
mision con si sic cn tri pillar una 
sofisticada super-nave para acabar 
con los Xevtous, unos per versos seres 
que codieian las riquezas de la 
Tierra, y que se disponen a invadir 
nuestro plane la. 



BAZOOKA BILL 


para crear una persists htc adiccibn, 
especial men ic cn aquellos que saben 
disfrutar a fon do un arcade sin 
p re oeu parse mucho por su calidad. 

El argunnen:tG P extraordinariamenie 
parccido a l dc otros program as dc 
caraclenslicas si mi hi res, cs esle: 

Un supersoldado especialisla cn cl 


male jo del bazooka ha si do elegido 
para urta diftcil mistd-n. Armado 
bast a los dienles, se dispone a 
part id par en el mas sangrienio 
combate cuerpo a cuerpn. y a pilotar 
un sofistieadu citza de combate. 


* ARCADE SOFT ■ ARCADE 

A pesar de su escasisitna 

original id ad, BAZOOKA HILL retine 

tod os los ingredientes nccesarios 
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DEACTIVATORS 

* ARIOLA SOFT * DESACTJVACIOH DE 
BOMBAS 

wAlerta!] Un comando terrorists sc 
ha Lnfittrndo en cl Institute de 
Invcsligaciones Gravitation ales para 
saboteur sus inslalacioncs, Se han 
detectado un gran mi mure de 
dispositivos de detoiiaddit coloeados 
en di versus lugares del edificio. 
preparados para explotar cn 
cuaiquter mo men to o> 

Cuando el jefe dc seguridad leyb cl 
mertsaje eruhido por el s 1st cm a de 
detection y alarms, supo que por fin 
tenia en sus manos una mision a la 


medidu de Los Deaettvalors, un 
equipo de atidroides especial i/ados 
en trabajos de desaciivacidn. Sin 
pcnsarselo dos veces, conectd sus 
dreuitos y los programd para real tzar 
la difidl tarea,.- 

El objeto del juego consiste cn sacar 
lodas las bombas de los einco niveles 
que eornponen el edificio, 
nrrojuridolns 1'uera antes del lienipo 
limite. Ademas. hahra que reparar 
los eiementos disfuncionales que han 
niter ado el equilibrio gravitational 
de ]as habitaciones, y evitar el 
contaeio con los robois 
re program ados por los terroristas 
Deactivators es un programs difieil 
dc comprender at principle —quizii 


por la origin alidad dc sus 
plan tea mientos— y en cierto mode 
fal to de csos pequenos dotal les 
^invisibles* que re lien en la ate n cion 
del jugador. No obstante, bus fa con 
Cfhar un vistazo a sus pan (alias para 
com pro bar que cal id ad grafica no 
fal la- En definitive, un programa 
recome ridable, con ciertas reservas. 
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SILENT SERVICE 

• MICRO PROSE ■ COMBATE NAVAL 

Si tent Serv ice es un eseelentc 
program a de ambientacidn belica, en 
cl que sc revive toda la action y La 
estrategia que tuvo lugar en Las 
aguas de] Paeifico durante la 
Segunda Guerra Mundial. 

Desde La sala de maquinas. la torre 
de control o el puente dc in an do. 
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podras poner a prueba 
tu bub LI id ad corno 
comandante de uno de 
los submarines que 
palrullaban las rut as de 
rtavegacidn dc la 
eseuadra nipona. 't u 
mi si on: aproxi marie a 
lit IIota encmiga 
esqutvando las bnrreras 
de cargas de 
pro fund id ad. y hundir 
el mayor nuinero 
posible dc buques. 


* * 





















































































FIST N 



oponenteS. (.’on gran 
acicrto, solo sc ha 
conservado de la version 
preeedentc lo mcjor: la 
call dad y profusion grafica 
dc Eos golpcs y 
movimicntos cn cl comitate, 

For si esto fuera poeo, sc ha 
ineremcntado a (in mas la veLoeidud 
dc Sos desplazarrticnlos y ]a 
restate nuia de I os contend ientcs. 

Erl definitive Fist 11 es ana version 
en clave dc aventura dc lo que 
irneiulmcnte fue un simple simulador 
dc a lies marcialcs. 


• MELBOURNE HOUSE ■ ARTES 
MARCIALE5 


Seguro que mtiehos dc 
vosotms conservats un 
grato recuerdo dc aquel 
sensational program a que 
fue «The way of the 
exploding fist**, un 
n (micro uno cn vent as 
que pronto acabb 
oayenrio en cl olvido, 

Pues bien, sit esperada 
segunda parte ya cs unn 
realidad. 
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JZOLOR 

& 

somo 

6 

TOTAL 

35 


B n j o 

el liigEo — mds 
breve esta vez— de Fist II, 
Melbourne House nos ofreee in ache 
mas que una mera continuacidn de 
la aventura, be ha hecho una 
rcinterpretadbn total del desarrollo 
original del juego, ahadiendo un 
argumenlo, un esgenario-laberinto 
movil (nada de pamallas dc fondo 
fijo), y una mayor dtversidad dc 





DOUBLE TAKE 

• OCEAN ■ AVENTURA FANTASTICA 

La proverbial originalidad de la 
firm a briuiriica Ocean Software ha 
dado red en (entente nuevos frutos. 
En esta ocasiPn, sc trata de un 
excelcnte program a cn el que se 
aunan unos buenos grificos v un 
argumento original como poeus. 


1st cm? fit tit he nr TF 


ANmACtON 

9 

IN TERES 

8 

GRAFtCOS 

9 

COLOR 

8 

somo 

7 

TOTAL 

41 


Ln cl a no 2<NLS, se abre la linicu 
pueria que coitmniea la Tie mi con 
un universe negalivo paralcio a! 
nuestro. Cada objeto de estc mundo 
bene en el otro una 
replica exact a en 
negatives, pero 
ahora, dc spues de la 
colisibeis a mhos 
uni versos han 
perdido csLabilldad, 


y los objetos han comeii/ado a pasar 
dc un I ado a otro. mczclandosc cn 
un eaos ebs-mico del que sblo Lit 
puedes libramos. Original. ^ No? 



































































VENDO ZX Spectrum Plus, con todos 
sus accesorias y manuales, mgs inter¬ 
face Kempston y Joystick Quick Shot 
11 „ tado en perfecto estsdo y con em- 
beIajes Originates; rs vistas Microhobby 
(coleccibn com pi eta] con torso Basic y 
C/M, juegos y curso de Basic de Inves- 
tronica. Pretio estupendo. Llamar al tel. 
076} 51 07 15. Zaragoza, 


COM PRO para el ZX Spectrum prog re¬ 
tries da urilidades y geslidn en especial 
com pi I ad ores p&ra wO y cCOBGLii. 
Tambten una tmpresora matricial y uni- 
dad de discos. Manuel Blanco Vidal,, 
c/ r Real n. fl 4 Puebla de Trives. 32790 
Orense. 


VENDQ Interface de Joystick progra- 
mablc per 3 000 pis, Jorge Diaz Garcia, 
Avda. de Santander, n.° 12, 6.° A. Tel, 
22 35 89, 33001 Oviedo. 


VENDQ ordenador Spectrum 48K, cas¬ 
sette, mfis de 200 juegos y aplicaciones 
libros y revistas por 35 000 pis. Llamar 
el tel- 253 05 29- Javi. 


EL20C0 

V5NDQ ordenador ZX Spectrum, con 
lodos sus cables, cinta de demostra- 
cion y libro de instrucciones, Poco uso 
Todo por 20 000 pis. negociables, Lla- 
mar al tel. (96) 365 54 25, DenieL 


VENDQ ZX Spectrum 4BK en muy buen 
estado. Manual, cables de con-exidn. 
Joystick, siete libros y m^s do veinte re¬ 
vistas (incluidos cinco numeras de IN¬ 
PUT SINCLAIR). Rcgala ademas ZX 81 
con empliacidn a 16K (manual, cables, 
etc...]. Todo por 19 000 pts, Llamar al 
tel, (93) 217 07 IS. Juan, 


VENT A E INTERCAM BIO prog ra mas 16/ 
48K, Ten go ultimas novedades. Escrihir 
a: Ruben Herrero Angulo, cl Arena! 105, 
1.°, n. a 1. 03200 Miranda de Ebro. Bur¬ 
gos, Tel. 1947) 31 35 61, 


VENOO interface Joystick program able 
lipo Kernpstcm por 3 000 pts.; com- 
prado en septiembre, Escribir a: Carlos 
Gernues Ayerze, c/ General Franco, r\.° 
43, 22600 Sabirtenigo. (Huesca). 


CAMBIO programed. Escribir a: Fran¬ 
cisco Munoz Garcia, P,® Zorrilla, n. 0 5, 
1° B. 47007 ValEadolid. 


INTERCAMBIQ juegos, poseo 400 la 
mayorfa novedades. Me interesan (Gi- 
Joe, The Evil Crown, Zakil Wood, Black 
Wiche, Back to School, Alien, Temple of 
Apshai Trilogy, Fist 11, Conflict in Viet¬ 
nam y Piracy). Escribe me mendando 
lisle. Pablo Castano, c/ Maestro Gue¬ 
rrero, n,® B, 7T 4A 290D2 Malaga. 


VENDO ordenador ZX Spectrum 48K 
complete, nuevo, con 15 cintas de pro- 
gramas, libros, cassettes c-15 virgenes, 
porta cassette, etc, Por solo 15 000 pts, 
Enciclopedia RUN, 4 tom os encuader- 
nada a convenir. Jose Manuel Perez. 


Aptdo. 42, Lugones. Asturias. Tel. 
(985) 26 07 94, 


VENDQ Spectrum Plus, nuevo. Inter¬ 
face Kempston, Joystick, 10 prog ram as 
originates (Skyfox, Match Point, etc.) 20 
o m£s revistas verias, 3 libros, 25 cintas 
1280 juegos}. Todo alio por 42 000 pts, 
negociables. Francisco Ccsano Cabe- 
nillas. PJe. Pintor Cdrdoba, ft.®1,1. e 1A 
14006 Cdrdoba. Tel. [957} 27 32 41. 


VENDO ordenador LASER color com¬ 
puter 200, com pi eta monte nuevo y sin 
usarj con adaptador, cables, cassette 
de demostraesdn, manuales, etc. Precio 
20 000 pts, Negociables. Emma Car- 
ballal Haire. La Caeyra, Pza. Riestra, 
n.° 2, 12.* 36005 Ponlevedrs. Tel, 
(996) 85 68 80. 


VENDO ZX Spectrum Plusy un cassette 
para ordenador, todo en buen estado, 
por 29 000 pts. Regalo Interface para 
Joystick y 10 juegos a elegir. Escribir a: 
Fernando Sanchez Palomo. c ! Marques 
de la Valdavsa, n. a 17, 28100 Al- 

cobendas. Madrid. 


VENDOi'CAMBIO juegos. Tengo los me- 
jo res (Asterix, Jack the Nipper, Penta¬ 
gram, Heavy to the Magic, Equinox, en- 
tre otros). Alfredo Ruiz Gutierrez, Avde. 
Madrid, nT 15, 4, <! -D. Granada. Tel. 
(958) 2 7 23 63. __ 

CLUB de intercambio, vents compra de 
SOFTWARE. Francisco Puig Alarcbn. c/ 
Paseo Estacibn, n. Q 37, 3. D 2*. 25600 E5a- 
laguer. Ldrlda. 


Pen&ionista 53 a.rios, gustos electrbnica 
y micros, agradecerL’ regales re vistas, 
material, piezas, aparatos, etc. Remitir 
a: Julian. Seguen. Serradiita, rt,° 28. 
28044 Madrid. Tel. 705 98 24. 


En el sorted Gerrespondiente al numero 18 antre quienes eserfoisteis mandaridc vuestros votes a LOS 


MEJOHES DE INPUT han resultado ganadores: 

NOMBflE 

LOCAL IDAD 

JUE GO ELEG1D0 

ESTEBAN CIVERA SALTO 

Gava (Barcelona) 

WINTER GAMES 

JUAN JOSE CQL0MINA VERT 

Porto Cristo (Mallorca) 

PIFlACUSE 

ARTURO RGB 10 PAVGN 

Burgos 

IKARI 

JOSE S. GUDE BASTERRECHEA 

Madrid 

INFILTRATOR 

JOSE LOPEZ FQNTANET 

Algemesi (Valencia) 

FAIR LIGHT II 

LUIS ESTEBAN MANZANARES 

Mavahermosa (Toledo) 

DEEP STRIKE 

JOSE M. a MARTINEZ MORENO 

Puerto Sta. Maria (CJdiz) 

VIE AR KUNG-FU 

JOSE 1. SAEZ MAESTRE 

Madrid 

SHADOW OF THE UNICORN 

LUIS FELIPE GARCIA ARCAYA 

Renicasm (Castelion) 

THANAT0S 

JUAN J. SAURA PAREDES 

Elche (Alicante) 

STRIKE FORCE HARRIER 







































azoco 


Vendo ordenador Apple II E 64 K Spa¬ 
nish, Disco con Controlador, Disco sin 
controlador, Tarjetg de Ordenador a 
Impresora, Joystick Apple |[£, con 
quince programas im porta ntes, TQPQ 
SIN ESTRENAR, con factura; hago 50 % 
descuenlo. Comactar con Antonio Be¬ 
nitez. Avda. Dr, Solis PascuaL 28.11 GOO 
Ubrique (Cadiz). TL: 956-11 01 59. 


Day dases de Basic, Ensamblador, Co- 
bol, Pascal y Fortran Tv, ademas de 
Programacibn Estruciuratfa en Basic y 
Maracnaticas de Ccmputacion. Solo 
para Madrid Llamar at tl.: 201 68 02. 
Angel Duran Garcia. 


Vendo Spectrum 128K por 30.000 ptas,, 
con lodos sus Accescrios (transforma- 
dor, cables y manuaJesf y 20 juegos 
fAnliriiadl, Uridium, Thanatos, etc.). Es- 
cribir a; Manuel Riaza Hugel. G/ San 
Antonio M." Claret 39- Barcelona 
08025, TL: 93-207 03 01 de 3 a 8, 


Verde ZX Spectrum Plus, manuales en 
castellanq, lapiz optico y cintas 18,000 
ptas, Llamar al ll,: 695 78 17, GelaTe. 
Madrid, Marcos Cabanas. 


Vendo el libro de «Cddrgo Maquina del 
Spectrum* P.V„ 1,500 ptas, y regain 
neCddigo maquina para principiantes*. 
^Sprites y graficos on lenguaje m£- 
quina» F.V, 1,500 ptas, y regale n. 0 23, 
24 to do Spectrum. Vendo numeros 3, 5, 
8, especial verano, 10, 11 r 13, 14 de In¬ 
put Sinclair cada uno por 275 ptas. Lla¬ 
mar al 85 52 40. J. Javier Casado, Cb- 
diz. 


Ultimas noveclarfes en Software y por 
cariho intcresado en conseguir el pro- 
grama eWorld Cup Carnival*, Francisco 
Crusat. C/ Serafin Avendaho, 2 r 3. D A. 
Vigo 36201, Pontevedra. TL; 936- 
22 25 73. Luries y jueves de 7 a 9. 


Deseari'a contactar con usuarios del 
Spectrum, para intercambiar, comprar 
o vender programas, trucos, libros e in¬ 
form acidn. Antonio Sae-z Bravo. C/ Al- 
berche, 136. 45007 Toledo. Tl,: 925- 
23 15 62, 


Cambio, compro y vendo programas 
para Spectrum 48K, primeros juegos. 
Daniel Luna. C/ San Antonio, 37, 3." Vi- 
laseca, Tarragona. TL: 977-39 03 08. 


Jnfercambio toda class de programas, 
mapas, trucos, ideas y pokes. Alex Ber- 
naE Greu, C/ Idumea, 6-8, SAG.* 08035 
Barcelona. TL: 93-212 SS 44. 


Vendo juegos por cambio de ordena- 
dor. Top Gun, Pyracuse, Commando, 
Green Beret, Winter Games, Bom Jack 
entre otros, A 600 ptas. c/u, Mancfo 


lists: gastos de cuntrarreembolso a mi 
cargo, Enviar tl, de conlacto. Gregorio 
Riquelme. P, & Alfonso XII, 54. S. D S. Car¬ 
tagena 30203- 


Compro cassette Gold King. Uamar tar- 
des de 7 a 8, TL: 433 52 95. Adolfo. Ma¬ 
drid, 


Cambio programas de Spectrum 4SK. 
Envrar lista. Tengo novedades: Trivial 
Pursuit, Uridium, Thanatos, etc. Pierre 
Arcelirt Zabai. C/ Castillo Palau to rdera, 
86, Vilaforluny (CambrNs). Tarragona. 
TL: 977-36 13 02. 


Vendo ZX Spectrum 48K Plus; con el 
tec I ado espahof, manua( r cables de co- 
nexibn y dos cintas, una con 10 juegos; 
y la guia de funcionamiento. Todo por 
22.000 ptas. Carlos Grinin Perez. C/ Co- 
balto, 152. HospitaJet de LJobregat. Bar¬ 
celona, 


Vendo Software para Spectrum, lengO 
!os ultimos titutos (Space Harrier, Su¬ 
per Soccer,., etc,). Jos6 Felix Garzdn. Cf 
Tutu I o, 2, 4° dcha. 48007 Bilbao, TL: 
94-446 55 16. 


Cambio, compro y vendo todo tipo de 
programas para el Spectrum 48K An¬ 
tonio Toribio Carreras, Poligono Pta. 
Madrid, Sector MaTaga, Edf, Granada, 
Puerta B, 3, e izqda. 23740 Andujar, 
Jaen. 


Vendo lote de mas de 50 programas 
(juegos, gtilidades, aplicacrones) por 
sdlo 5,000 ptas. Para Spectrum, Miguel 
Lbpez, Sia, Cristina de Cobres. Vilaboa. 
Pontevedra. TL: 986-70 88 58. A partlr 
de las 16 h. 


Vendo programas para Spectrum, jue¬ 
gos y utilidades. Ultimas novedades 
(Cobra, Uridium, Bounder, Asterfx, 
etc,). Vendo Copidn Turbo con inslruc- 
tiones. Rafael Alcaide Jimenez. C/ 
Constftucidn, 20. Sant Feliu de Llobre- 
gal. Barcelona. Tl,: 93-666 00 21. 


Vendo Spectrum 43K complelo por 
15-900 ptas. y regalo 77 programas ori¬ 
ginates y amplificador de snnido. Tl.: 
93-354 62 21, Mananas.. Cqmpro orde¬ 
nador Sinclair GL, Ernesto L6pez Lopez. 
Calfe Rebeco, 27, 2.°-1.* Barcelona 
08031. 


Vendo Spectrum 48K nuevo, con lodes 
I os accesorios (manual, cables), Incluyo 
interface y joystick. 39 juegos comer- 
ciaJes y «Tu primer libro del ZX Spec- 
trum»„ Todo por 20.000. Miguel Morr- 
llo. Barcelona. Tl.: 93-333 14 88. 


Vendo ordenador Dragon 64., monitor 
da fdsforo ve rd e, u n j oyst i ck r 40 j ueg os. 


un cassette, etc. Precio a convanir. Lla¬ 
mar a Miguel L6pez. TL: 398 10 39. Bar¬ 
celona (de 2 a 4 de la tarde). 


Cambio juegos o rig inales para Spec¬ 
trum, posao primeros tituics (Rambo, 
Bruce Lee, Saboteur, etc,), A mi me in- 
teresan Kun-Fu Master y Yie ar Kun-Fu 
1 y 2- Miguel Herrera. Calla Formentera 
B.'- 1 D, Barcelona. Talafono: 93- 

354 41 24. 


Cambio programas para el Spectrum, 
desearfe conseguir GHOSTS'N GO¬ 
BLINS y BASKETBALL. Jorge Martinez. 
C7 Almaza, 27, 2. D C. Madrid 28911. TL: 
463 47 37. 


Vendo impresorg ADMATE DP-89LO 
nueva. Antonio Sdez Bravo. C/ Alber- 
che, 136. 45907 Toledo. Tl.: 925- 
231 56 62. 


Dcsearia intercambiar programas para 
Spectrum 48K, Jos4 Miguel Llop Juan, 
C/ Prim avers, 3, 3, c Ho^&pi ta I el de Llo- 
bregat, Barcelona. 


Vendo o cambio juegos. Tengo ultimas 
noveefades (Paper Boy, 1942, Thanatos, 
Cobra, etc.), Tambien vendo joystick 
Canon, Manuel Maria. Calls Trafalgar, 
4, £.°D, Algecirss, Cadiz. Tclcfono: 956- 
66 41 81 r 


Irtte ream bio juegos y utilidades para 
Spectrum. Dlspongo de ultimas nove- 
dades. En utilidades me anteresan fos 
lenguajes {Forth, Cobol, Logo,,.) y di- 
sefiadores graficos. Tambien compro 
Spectrum 48K con cables y manual por 
10,090 ptas. Escribir a Juan Munoz 
Falcd. Avenida Suecia, 4, 3, D 46010 Va¬ 
lencia. 


Cambio contestador automatico de lla- 
madas Am per CM-52 125/220 con co- 
nector telefdnico, en buen estado y I os 
libros {FotocopEados y encuaderna- 
dos); Base II para el Amstrad PCW-B256 
y CPC-6128; hoja electrbnica de calculo 
para el CPC 464 (Micro Spread) y una 
guia para el observador de estrellas 
(Star Watcher) para el CPC 464 por una 
impresora GP 50 S con Interface RS- 
232. Tambi^n poseo programas para el 
48K. Estoy EJispuesto a mandar lists a 
quien la solrcite. Ramon Varela Pat6n. 
Calle La Paz, 3, 1,°A, Cartagena, Murcia. 


Vendo ordenador Einstein 80K de RAM 
(ampiiablss). Se incluye: monitor fbs- 
foro verde, impresora y programas de 
conta bill dad, base da dalos, trata- 
mrento de textos. Multiplan. Precio a 
convenir. Llamar a I os tetefonos 
248 41 47-248 40 54 de Madrid y pre- 
guntar por Oscar, 
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LAS ESTRELLAS DE ZIGURAT: 
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